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MACROTECH-—STILL THE S-100 
PERFORMANCE 
PACESETTER 


MI-286. Our 80286/Z80H Dual CPU Board is at least twice 
as fast as Compupro’s 8085/88 and it’s a direct replacement. 

The MI-286 has already become the standard by which other 80286 
based systems are measured. Ask us for a complimentary 
Benchmark Report. 


ADIT. There’s nothing else like it on the market. It’s an Intelligent I/O 
Board with its own real time firmware that lets you control up 
to 16 different terminals, modems or printers all from a 
single slot. ADIT is the performance standard in 
environments such as Alpha Micro where I/O 
speed is critical. 


V-RAM. High performance 
Static CMOS system mem- 
ory/ virtual disk in either 
quarter or half megabyte 
configurations. With its on- 
board battery and power-fail 
logic, the V- RAM sets a new per- 
formance standard at conventional 
static memory prices. When 
accessed through |/O port 
MSR. High performance and ——- y ; channels, the half megabyte 
reliability ina memory so fast ADIT. oo d %% V-RAM becomes M Drive 
you won't believe it’s a dynamic 4 compatible with true 
ram product. Compatible with all non-volatile solid- 
popular S-100 environments, the state disk 
MSR’s low power consumption capability. 
and 120 nanosecond ram 
devices set a new stan- 
dard for dynamic memory 
products. The MSR is avail- 
able in quarter, half, one 
and two megabyte configurations 
at the lowest prices in the industry. 


Dealers: 
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Custom Computer Technology (800) 222-8686 MACROTECH International Corp. 


Priority One Electronics (800) 423-5922 
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Electronic Centers and Alpha Micro Dealers. 
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Teleteknology 


One Success After “Another 


Since 1968 Teletek has been a leader in the design and will run at 4, 5, 6, or 8MHz and are available with up to 

manufacture of single board computers, controllers, 512K of onboard dynamic RAM. The SBC 86/87 also offers 

memory boards and interface boards. an optional 8087 math coprocessor for numeric intensive 
Teletek offers five distinct single board computers applications. 

(SBCs), each with its own unique features, to meet the Teletek’s Systemaster II provides two RS232C serial 

varied needs of the system integrator. Based on the ports and two Centronics-compatible parallel ports or 

8086 16-bit and Z80 8-bit microprocessors, Teletek’s SBCs may be optionally configured to provide a SCSI interface 


or an IEEE-488 interface to support many laboratory 
testing and measuring instruments. 
Teletek also offers a dual controller board, the HD/ 
CTC, which will control any two $T506-compatible hard 
disk drives and any QIC-02/QIC-24-compatible 
cartridge tape drive. This unique design saves 
hardware cost as well as space in the mainframe. 
Teletek’s IEEE 696/S-100 boards run under 
the multi-user, multi-processing operating 
system TurboDOS by Software 2000, support- 
ing up to 16 users and 
capable of running PC-DOS 
application programs. For 
PTT EP EVE TPT ‘ wt } ‘ { . 
seb $ single-user systems, Teletek 
a is supported by the CP/M 
operating system. 
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DANVIC S.A. 
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01203 Sao Paulo, Brazil 8 

tel: 221-6033 (PABX) 
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Teletek provides a 30 day evaluation 
program to qualified customers. For 
more information, call our Sales Depart- 
ment at 916-920-4600 or write for our 
information package. = REESE ESSE ii hh aa 


4600 Pell Drive 
Sacramento, CA 95638 
916-920-4600 
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Editor’s 
Page 


ay back in 1979 I 

came to the conclu- 

sion that there was 

a need for a maga- 

zine that catered to 
CP/M and S-100 systems users. I spent 
several months trying to convince one 
publisher after another to publish the 
magazine, with no success. Thus, by 
the end of ’79 I came to the realization 
that the only way my brainstorm would 
see the light of day was for me to do it 
myself. The first issue of ‘‘Microsy- 
stems’’ magazine, my baby, appeared 
in January of 1980. 

I had intended for Microsystems to 
be just a small little magazine with a 
few hundred subscribers and to provide 
a communications medium for CP/M 
and S-100 users. My wife Lennie and I 
were ill-prepared for the huge response 
and the incredible amount of work in- 
volved in publishing a magazine. There 
is a lot more than just writing and edit- 
ing, believe me! Thus, after several 
months of working seven days a week, 
from dawn into the wee hours, we de- 
cided to get out of the publishing busi- 
ness while retaining the editorial end of 
the magazine. 

Hence, in mid 1980 we sold Mic- 
rosystems to Creative Computing who 
published it during the later part of 
1980, all of 1981, and into the begin- 
ning of 1982. It was then that Ziff- 
Davis bought Creative Computing and 
acquired Microsystems as part of the 
deal. 

Ziff-Davis is a very large magazine 
publisher with many magazines and 
several hundred employees. Microsy- 
stems had one of the smallest circula- 
tions of all their magazines. Z-D consi- 
dered Microsystems to be a very presti- 
gious publication and therefore decided 
to continue publishing it and in fact 
invested quite heavily in trying to in- 
crease the circulation and advertising. 
However, after two years Z-D decided 


to call it a day and reluctantly closed it 
down. 


Looking to the future 

A great deal has changed in the 5 + 
years since I originally started Microsy- 
stems. Thus, it is only logical to expect 
that MICRO/SYSTEMS JOURNAL is 
going to be different from its predeces- 
sor. Although S-100 systems are still 
viable their numbers now account for 
only a small fraction of the systems in 
use. Their strength today lies in the 
multi-user, multi-processing and high 
performance systems areas. MICRO/ 
SYSTEMS JOURNAL will continue to 
provide support for S-100 users as it 
applies to these higher performance ap- 
plications. 

CP/M is today largely the domain 
of low cost single-user systems such as 
the KayPro, Commodore-64 and Ap- 
ple-Ie with Z80 plug-in cards. In fact 
there are probably more Apple-based 
CP/M systems in operation then all the 
other types of CP/M systems put 
together. And the second most popular 
CP/M system is probably the Commod- 
ore C-64. KayPro probably ranks a dis- 
tant third. 

The more sophisticated users are 
moving to MS-DOS for single user ap- 
plications and Turbo-Dos and Unix for 
multi-user, multi-processing applica- 
tions. Xenix appears to be the current 
leader here (with Tandy and Altos 
machines) and the introduction of 
Xenix on the IBM-PC will no doubt 
assure it the dominant position for 
small micro-based multi-user Unix sys- 
tems. In fact the four largest suppliers 
of S-100 systems are using Unix and 
many others are using Turbo-Dos. 
Thus, we will also provide support for 
systems such as Unix, Turbo-Dos, CP/ 
M and other high-performance operat- 
ing systems. 

Several S-100 manufacturers have 
already introduced systems running MS- 


DOS with several more planning the 
same. Further, a number of S-100 makers 
are introducing multi-user concurrent 
CP/M-86 systems with MS-DOS com- 
patibility. Therefore we will support 
16-bit operating systems such as MS-DOS 
and CCP/M. 

I will be giving much more cover- 
age to the PC and CP/M public domain 
software areas then was previously 
given in Microsystems. I believe that 
public domain software is one of the 
most exciting parts of the microcompu- 
ter scene. 

Further, the PC-bus has become a 
defacto hardware standard as many 
manufacturers make systems and plug-in 
cards using this bus. In fact, the PC-bus 
has a much wider acceptance than the 
S-100 bus. We intend to run articles on 
interfacing to the PC-bus. For example, 
in our next issue you will find an article 
on building an S-100 to PC-bus interface. 
And, starting in the next issue Dave Har- 
dy (whose S-100 Bus Column ran in the 
old Microsystems) will begin a regular 
column on PC-bus hardware interfacing. 
If you have an IBM-PC or compatible and 
want to impraqve its performance, inter- 
face some unusual devices to it or are hav- 
ing compatability problems, send in your 
letters and Dave will attempt to answer 
them. 


What a time to start a magazine! 

During the last 8 months close to 
two dozen computer magazines and 
computer book publishers have folded 
and several others are just barely hang- 
ing in. The future does not seem to hold 
great promise for the computer maga- 
zine publishing industry. 

Further, there is no doubt that a 
magazine that caters to the very soph- 
isticated microcomputer user will have 
a limited circulation and a limited 
advertiser base. We realize that it will 
never really be published by a large 


Continued on Page 13 
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THINKING COMPUTERS? 


Bane Fe aroha Bei nei 
CompuPro 10°LUs 
“".. a coherent, relatively easy to 
use [multi-user] system with an 
impressive amount of power for 
the money and good support... 
alternative to stand alone—or 
even networked—computers, the 
CompuPro 10 has a lot going for 


It Personal Computing, 12/84 


$7995.00 suggested list with 40 Mb hard disk 


Teper See p 


CompuPro 286 


A faster version of our multi-user 
Model C, of which arecent review 
states “... hardware is high quality 
... large software base... hundreds 
of serious business programs... 
versatility and adaptability to 
future hardware and software 
developments are unmatched...” 


Business Computer Systems, 9/84 
$9995.00 suggested list with 40Mb hard disk and cartridge tape 


To arrange a demonstration, call 1-800-367-7816 (in California, 1-415-786-0909). 
®Viasyn 1985 Viasyn Corporation, 3506 Breakwater Court, Hayward, CA 94545 


DUAL GPIB-488 INTERFACE 
BOARD 


A Stand-Alone, Independently Controlled 
Dual Channe! IEEE-488 I/O Processor. In- 
terface Activity Modes for Controller-in- 
Charge, Controller Assigned or Terminal 
Bus Slave, and all Interface Functions are 
handled transparent to Host System CPU 
through an on-board CPU and DMA con- 
troller. User Friendly operation. 


A&T, P/N 52748-800-102 


RGB COLOR GRAPHICS BOARD 


Programmable resolution up to 512 x 512 
pixels with 4 local video planes and on-board 
graphics processor. Color mapper aliows 16 
colors from a pelette of 4096. Light pen 
input. Plus more ... 


» P/N 52798-300-101 
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8 Channel A-D: 12 microsec. Conversion, 
50KHz Sample Rate, Programmable 
Gains, Offset and Diff./Single Modes. 

8 Channel D-A: 2 microsec. Settling, 
Bipolar V or Unipolar | Output. Program- 
mable Reference levels, Dual-Ported Chan- 
nel Refresh RAM. 16/8-Bit Data 
Transfers ‘via |/O or Memory Mapped 


A&T, P/N 52748-900-101 


Tint 


BAR CODE PROCESSOR BOARD 


The BarTender is a stand-alone I/O Pro- 
cessor that reads and prints most common 
Bar Codes. Includes bi-directional reading, 
wand interface, clock/calendar with battery. 
Extensive documentation and software. 


A&T,52748-500-101 Without Wand 
A&T,52748-500-201 With Wand 


eae — en <meta 
PERIPHERAL SUPPORT 
BOARD 

Two Serial SYNC/ASYNC Ports with 
RS-232, TTL or Current Loop Outputs, 
three 8-Bit Parallel Ports, three Timers, 
Real Time Clock/Calendar and Response 
Programmable Interrupt Controller. Small 
Proto Area with +5 and +12@v. 


A&T, P/N 52748-150-101 


MULTI-PURPOSE 
PROTOTYPING KIT 

Industrial Quality with Plated-Thru holes for 
Wire-Wrep or Solder projects. Complete 
with +5, +12v Regulators, Bus Bar, Filter 
Capacitors, and Menual. 


P/N 52748-450 


ALSO AVAILABLE: MULTI-FUNCTION 1/0 BOARD, SMART PROTOTYPING KIT, 128Kx8/64Kx16 STATIC RAM MODULE 
T 


SPECIFICATIONS SUBJECT 


TO CHANGE WITHOUT NOTICE. 
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IBM ts a trademark of IBM. Inc 

Heath and H-100 are trademarks of Heath Co. 

Zenith. Z-100, Z-DOS, and Z-BASIC are trademarks of 
Zenith Data Systems 

MS-DOS is a trademark of Microsoft, Inc 

CP/M Is a trademark of Digital Research, Inc 

P-SST Is copyright 1984 by LP Systems, Inc 

P-SST Software, MAESTRO, PALETTE, REACTOR-100 

ZLYNK/II, and ESP are copyright by Software Wizardry, Inc 

and the respective authors 


Dealer Inquiries Invited 


1106 First Capitol 
St. Charles, MO 63301 
(314) 946-1968 


a 
dalFoms 


go \sy 


1-800-TO-BUY-IT (orders only) 
1-314-946-1968 (other info) 


First Capitol Computer™ 
1106 First Capitol Drive 
St. Charles, MO 63301 


Please add 2% for shipping in USA 


First 
Capitol 


EEE Computer 


News, 


Gossip 

Digital Research is reported 
developing an 80286 version of 
Concurrent PC DOS for release at 
NCC... AT&T is expected to 
shortly release Version 5.3 of UNIX 
System V which should have support 
for virtual memory, and file and 
record locking, features needed for 
success in the business 
marketplace... Multi Solutions, Inc. 
has signed its first OEM contract for 
its S1 operating system with a 
Japanese supermicro maker 
(Computer Engineering U& 
Consuting Ltd.)... Predictions are 
that IBM will ship 200,000 PC AT 
machines this year, up from an 
estimated 40,000 last year... It’s 
rumored that 3M will shortly 
introduce an erasable SOOMbyte laser 
disk. It is not expected to be 
compatible with the read-only 
compact disk units beginning to 
appear from Japan. 


Public domain software 

Elsewhere in this issue you will 
find news columns specifically on 
SIG/M and PC/BLUE. However, 
there are some other organizations 
also distributing Public Domain 
Software. 

The Houston Area League of PC 
Users (HAL-PC) furnishes disks from 
its library for $2/disk. For a listing of 
titles send a stamped self-addressed 
envelope to: Nelson Ford. HAL-PC 
librarian, Box 61565, Houston TX 
77208. Clubs wishing to trade PDS 
software should contact: Jack 
McClure, Box 610001, Houston TX 
77208. 

Public Domain SW, 1400 
Coleman Ave., C-18, Santa Clara 
CA 95050 (no phone given) has a 
library of public domain software for 
the IBM-PC and compatibles. There 
are 108 disks in the library and disk 
number 0 contains a catalog and 
ordering information. They charge 
$7/disk plus shipping. The 
information disk alone costs $8.65. I 
was not able to determine whether 
this operation was run by a club or is 
a private business. 


Views & 


by Sol Libes 


The Public Domain Exchange, 
673 Hermitage Lane, San Jose CA, 
(408)942-0309 is a private business 
providing support for Apple users 
including CP/M and the Macintosh. 
Their catalog of PDS software for 
CP/M on the Apple includes 91 
volumes and they have 30 volumes 
of C-User Group PDS disks. They 
charge $15 for a catalog and $10/disk 
plus shipping. 

The C Users’ Group, Box 97, 
415 E Euclid McPherson KS 67460, 
has issued three news volumes. They 
now have 45 Volumes available in 
8’’SSSD, IBM-PC, Osborne SSDD, 
Apple, Heath and North Star 
formats. 8’’ is $8/vol while 5.25”’ 
are $12/Vol. 

The PC-SIG Software Library, 
1556 Halford Ave., Suite #130, 
Santa Clara CA 95051, 
(408)730-9291, a private business, 
has a library of 222 disks for the 
IBM-PC and compatibles. A printed 
2-volume catalog is $9. They charge 
$6/disk plus shipping. 


Club news 

The CompuPro Users Group has 
a bulletin board up and running at 
(703)491-1852. The group also has 
an RCPM system and publishes a 
newsletter for members. Membership 
is $20/yr. Call Don Kelley 
(703)690-3312, or write Toni 
Bennett, C-PRO UG, 14057 
Jefferson Davis Highway, Box 1474, 
Woodbridge VA 22193. 


DRI out/Microsoft in on UNIX 

Digital Research has given up 
on its UNIX-V port project for 
AT&T. Several individuals from the 
DRI project have reportedly spun off 
into a new startup company in 
attempt to finish the project. DRI had 
a development contract with AT&T 
for the software and was known to 
be behind its scheduled delivery 
dates to AT&T. 

In the meantime AT&T has 
turned to Microsoft and will do a 
certification evaluation of XENIX, 
Microsoft’s version of UNIX for 
68000, 8086 and 80286-based 


Gossip 


machines. Although the current 
version of XENIX is System-III 
compatible, Microsoft is promising a 
System-V version shortly. 

So, it looks like Microsoft has 
done it again. DRI, who was once 
the leading supplier of single-user 
DOS software, is now a minor player 
in that area. And now, DRIs has 
given up on its attempt at being the 
leading player in the multi-user micro 
DOS marketplace. 

DRI’s appears to be betting on 
its new Macintosh-like operating 
system for ATARI (actually 
CP/M-68K with a GEM front end). 
If the machine does not succeed, 
what will DRI try next? It is 
interesting to note that DRI had 
contracts with Mattel, Timex, Coleco 
and other comsumer-oriented 
companies who are no more. 


DRI & CP/M 

John Rowley, President of 
Digital Research has reported that 
sales for fiscal year 1984 doubled to 
$74 million, compared to $37 million 
in ’83. Further, he reported that 
CP/M revenue was about $9 million 
while revenue from Concurrent PC 
DOS was about $18 million. He 
indicated that the primary source of 
CP/M revenue was from Europe and 
Japan. 

DRI is putting a strong emphasis 
on Concurrent DOS for the 80286 
expecting it to be the dominant 
revenue producer in the future. It 
thus appears that, as far as DRI is 
concerned, CP/M’s life cycle is 
coming to an end. 


IBM update 

Venture Development Corp., a 
Wellesley MA market research outfit, 
recently counted 3,000 separate 
commercial programs for the 
IBM-PC; 10% were accounting 
programs, 6% word processing, 5% 
database managers, and 3.6% 
spreadsheets. By contrast Apple 
claims there are about 5,000 Apple 
programs, however the largest 
portion of these are games. 

By the time this column appears 
in print IBM’s new TopView 
windowing user-interface software 
should be out. Although limited in 
capability compared to Digital 
Research’s GEM and Microsoft 
Windows (which is not expected 
until June, at the earliest), it is 
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3-100 Products 


FULCRUM: The S-100 Specialists 


Introducing... 
FULCRUM’S NEW 


MPUZ CPU 


This NEW MPUZ 
CPU utilizes the Z-80 
8MHz uPas a basis for 
its 8MHz CPU for S-100 
systems, and has been 


Introducing... 


Tomorrow’s Disk Controller 


OMNIDISK 


Now the FULCRUM 
OMNIDISK offers S-100 
systems users a unique 
marriage of component 
compatability and 


carefully designed to meet the requirorents of the IEEE - 
696 standard. The quality and performance this CPU pro- 
vides is rarely found in S-100 products, and you can see 


technological innovation. These together producer’ features 
not found in any conventional disk controllers made today. 
See for yourself what tomorrow looks like... only $399. 


why...only $399. 


> 4 or 8MHz clock rate 

> Two RS-232 serial ports 

> Centronics printer ports 

> Real time clock with bat- 
tery back-up 

> Vectored interrups to any 
block location in memory 

> Programmable timer 

> ROM monitor 


> Power on Jump 

> On board wait states 

» 2K of RAM space 

24-bit extended 
addressing 

> Latched Status 

> Front panel compatibility 

> MPM support 


> Simultaneous support of 
both 5%” and 8” floppy 
disks and hard disks 

> Complete 24 bit DMA 

> Power on boot for 514” 
and 8” floppy and hard 
disks 

> Power on boot PROM 

> On board de-blocking to 
save RAM space over 
BIOS 


> Interfaces with the WD 
1001°hard disk controller 

> Supports 13 devices 
simulatneously 

> Full track buffer allows 
controller to recall entire 
track 

> DMA’S at 10 MHz 

> Supports MS DOS 

> 10K on board buffer 
saves two K of TPA 


So before you buy another S-100 component, call or write for 
our FREE catalog. And see how your system can benefit from 
the FULCRUM difference. 


“CP/M *2.2 configured for OMNIDISK 
$60. “Trade mark of Digital Research. 
FREE U.PS. ground shipping on 
prepaid orders. Shipping is added to 
VISA, M/C, and C.O.D. orders. CA 
residents, please add sales tax. 


Also in FULCRUM'S Family: OMNIRAM 
64K memory board. Serial I/O 2-2 & 
Video I/O Interface boards, Relay 
board, I-8080, 8015 and 8035 main 
frames with 21 slot mother boards, 
DPA front panel and A/D board. 


= K-FULCRUM 
7244 computer probucts 


707/433-0202 459 Allan Court, Healdsburg, CA 95448, 


expected to dominate the PC graphics 
user-interface market. Further, IBM 
is well along with TV version II, 
expected to make the PC look just 
like an Apple Macintosh, with the 
icons, mouse and graphics. TV-II 
should also have enhancements for 
networking. 

Computer Memories Inc. has 
disclosed that it received an IBM 
order IBM for 240,000 hard disk 
drives for the PC/AT to be deliver 
this year. IBM will no doubt place 
similar orders with other hard disk 
drive makers and will also sell many 
AT’s without hard disk drives. 
Therefore it appears that IBM 
expects to ship at least a half million 
AT’s this year. 

IBM has filed lawsuits agains 11 
Taiwan companies charging violation 
of copyrights on their IBM-PC. 
There are reports that there are 
several dozen system copiers 
operating in Taiwan, most 
mon-and-pop operations turning out 
10 to 20 machines a month. Virtually 
all of these machines are sold in the 
far east. Few come to the U.S. as PC 
clone prices here are already at a 
point where it is not profitable to 
sneak these machines into this 
country. For more comments on this 
subject see Hank Kee’s column in 
this issue. 


Z800 where are you? 

About four years ago Zilog 
disclosed that they were developing 
the Z800, a souped up version of the 
Z80. Last year they released 
preliminary spec sheets for the 
device. Now they are promising to 
actually start sampling the device. 
There is no doubt that 3 or even 2 
years ago it would have been a 
terrific device. Now I wonder. 

Not only has Zilog been slow to 
release the Z800 but they are also 
way behind on their promised 
delivery of their Z80,000 32-bit 
micro. It should be noted that 
10-year old Zilog, who is owned by 
Exxon Corp., has reported 9 
un-profitable years of operation. 
1983 was their one profitable year. 
Reportedly, 400 (out of 2100) 
employees were let go. 


Hitachi announces Super Z80 

Hitachi has announced a new 
CMOS 8-bit microprocessor 
(HD64180) that they claim is 
compatible with the Z80. They claim 
the following enhancements: higher 
speed, 7 new instructions, memory 
management unit (up to 512K of 
memory), 2-channel DMA controller, 
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wait-state generator, serial interface, 
2-channel 16-bit timer, 12-source 
interrupt controller, and dual-bus 
interface. For information: Hitachi 
Semiconductor, IC Salves and 
Service Division, 2210 O’Toole Ave, 
San Jose CA 95131; (408)942-1500. 


Phoenix announces XT BIOS ROM 
Phoenix Sofware Associates 
Ltd., 1420 Providence Highway, 
Suite 101, Norwood MA 02062, 
(617)769-7020) has announced the 
availability of a ROM-based BIOS 
that is totally compatible with the 
IBM/XT BIOS ROM. Phoenix’s 
IBM/PC compatible BIOS ROM is 
already being used in such companies 
as the Tandy Corp., AT&T and 
KayPro. Phoenix says they will soon 
announce an IBM/AT compatible 
ROM BIOS. OEMs can buy an 
unlimited-use license for $290,000. 


Supermicro Newsletter 

If you are into the world of 
multiprocessor, multiuser and 
networking use of microcomputer 
systems then you might be interested 
in knowing about the ‘‘Supermicro 
Newsletter’ published by ITOM 
Interntion Co. Box 1415, Los Altos 
CA 94022, (415)948-4516. A sample 
issue is free but a 12 issue 
subscription is $350 (ouch!). My 
sample copy was 20 pages long and 
contained news and articles 
comparing multi-User SuperMicros to 
LAN-PCs and a discussion of the 
leading LAN suppliers. 


Thin is in 

Planar Systems Inc., Beaverton 
OR, has announced an 
electroluminescent flat-panel display 
with a 4’’ x 8” display area, 
displaying 512 x 256 pixels or 80 
cols x 25 rows of characters. 
Moreover, the panel measures 5.7’’ x 
10.3’ x .75’’... that is right... it 
is only % of an inch thick. Further, 
they claim it operates like a 
conventional CRT utilizing the same 
sync and video signals, works under 
virtually all lighting conditions and 
has a 120 degree viewing angle. 

Now for the bad news... 
current quantity one thousand price is 
$775. They expect the price to drop 
to around $250 by 1987. At these 
prices the old CRT has a lot more 
life left in it. 


Optical disk drives being shipped 
Sony and Hitachi are the first 
companies to ship optical-disk drives 
for personal computers. The units 
store 550-Mbytes on a read-only disk 
the size of a 45-rpm record. Units 


are expected to start appearing in 

stores in the last quarter of this year. 
Panasonic, Matsushita, Phillips, IBM 
and Digital Equipment Corp. are also 
expected to announce units this year. 


Random news 

Lifeboat Associates, 1651 Third 
Ave, NY NY 10128; (212)860-0300 
has released SB-86, a version of 
MS-DOS 2.11 for use on CompuPro 
systems using the 8086/8087 or 
8085/8088 CPU and Support-I cards. 
Price is $275... IQ Software, Fort 
Worth TX has released CP/M-68K 
for the Apple Macintosh. . . 
Statewide Microelectronics Inc., 10 
East 22nd St, Lombard IL 60148; 
(800)882-8311 or 553-7800 has 
broken the $600 price barrier for a 
PC 10M hard disk drive system with 
a $599 package that includes a 
Cogito 10M drive, controller, cables 
boot software, mounting hardware, 
manual and | year warranty. 

Hitachi and Fuji unveiled, in 
Japan, cameras that use floppy disks 
to store the pictures rather than 
conventional film. The pictures can 
then be viewed on a TV screen and 
printed on a thermal color printer in 
a 3.2 x 5.3 inch format. A 2’’ disk is 
used with the drive built into the 
camera. A workstation is also 
available which allows editing the 
pictures, adding titles and random 
access and auto-search of the disk 
and interfacing to TV, VCR and a 
personal computer... AT&T is 
claiming they will be the first 
company to manufacture and ship 
1-Mbit memory chips. They are 
promising delivery early next year 
and are considering selling them to 
outside customers. 

Several companies are 
introducing boards to allow IBM-AT 
users to have up to 16 users running 
under XENIX. One such company 
we recently learned of is Computone 
Systems Inc., Atlanta GA shipping a 
plug-in card called *‘ATvantge-X’’. 
IBM only supports up to three 
XENIX users on the AT. 


Quotation of the month 
“‘IBM’s general waffling, 
wandering, meandering and 
indecisive smoke generating have 
slowed down the UNIX market.”’ 
Jean Yates 
The Yates Perspective, Dec 84 
3350 W Bayshort Rd Suite 201 
Palo Alto CA 94303 


WHEN CONTACTING VENDORS 
MENTIONED HERE PLEASE TELL 
THEM YOU READ ABOUT IT IN 
MICRO/SYSTEMS JOURNAL. 
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CUSTOM 
PRODUCTS 


S-100 


PRODUCTS 


DESIGN ¢ LAYOUT 
MANUFACTURING 


R 21/0 
ROM/RAM & I/O 


CLT 


— RM-10 


ECT-100-F 
RACKMOUNT CARD CAGES 


tHE 


64K RAM 


8080 CPU 
CENTRAL PROCESSING UNITS FULLY STATIC MEMORY 


— BUILDING BLOCKS 
oe FOR 
| at 4 ~ MICROCOMPUTER SYSTEMS, 
ei il I. DEDICATED CONTROLLERS 


B3 Wee AND TEST EQUIPMENT 
“9 — CARD CAGES, POWER SUPPLIES 
MAINFRAMES, CPU’S, MEMORY 
& 1/0, OEM VARIATIONS 
a 
CCMB-10-F MIN TT-10 


6,10 OR 20 SLOT CARD CAGES TABLE TOP MAINFRAMES 


ELECTRONIC CONTROL TECHNOLOGY, INC. 


10 Cottage St., Berkeley Heights, NU 07922 (201) 464-8086 


SPECIALIZING IN 


QUALITY 


MULTIBUS* 


PRODUCTS 


MULTIBUS IS A TRADEMARK OF INTEL CORP. 


MICRO COMPUTER Gers | 
HARDWARE PS-30 A 
POWER SUPPLIES 


Editor’s Note: Hank Kee is the libra- 
rian for the PC/Blue public domain 
software library. He is the person who 
collects, assembles, and checks all the 
software issued by PC/Blue and then 
compiles and edits them into the re- 
leased volumes. 


he PC/Blue User Group 

Library is devoted to the 

collection of public domain 

software operational on the 

IBM PC and equivalent 
clones. This effort is under the spon- 
sorship of the New York Amateur 
Computer Club and the Amateur Com- 
puter Group of New Jersey. Although 
the bulk of the software is PC-DOS 
dependent, some of the programs are 
MS-DOS based and can run with per- 
sonal computers supporting MS-DOS 
2.0 or higher. 

The ‘‘public domain’’ software for 
the IBM PC differs from the concept of 
public domain programs in the Sig/M 
(CP/M) User Group Library. Most of 
the programs in the PC/Blue library are 
now under the concept of user sup- 
ported software. Submitted programs 
are encouraged to be freely copied and 
distributed. But if you find the prog- 
rams to be useful, you are requested to 
send a ‘‘donation’’ to the author. For 
the most part, these programs are not 
accompanied by source code. 

The large majority of programs in 
public domain for the IBM PC are well 
written and very well documented. The 
topics are wide ranging. This column 
will highlight recent releases in the PC/ 
Blue library. The following is the con- 
tents of the most recently released 
volumes: 


100-101 U.S. Census Utility-County 
and City Databook 

Games for IBM-PC 

3D Demon Chase 

Catch The Bouncing Baby 

Castle Adventure 

Jumping Janitor Joe 

Pascal Games 

The Third Dimension 

3D Graphics Generator 


102 


103 


PC/Blue Report 


104 Miscellaneous Utilities 
Incremental Backup Utility 


Library Update written in 
et Qu 


Window Pop-up Utility 

RAM Disk Utility 

Disk Patching Utility 

Wordstar/ASCII 
Reformatter 

Library Update written in 
BASIC 

Wordstar 3.0 Notes 

Menu-Driven Disk Utility 

Hex Converter in MS-DOS 

Page Mode List Program 

Changing PC-DOS File 
Attributes 

Redirection of Printer 
Output to Disk 


Miscellaneous Utilities 

““Ultimate’’ Disk Utility 

UNIX Terminal Emulator 

Compact Library Update 
Utilities 

dBASE II/III Function 
Menu 

Selection of Screen 
Attributes 

Reminder Signal 

Lease/Purchase Option 

Incremental Backup 
BATCH Command 

Protect/Unprotect File 
Utility 

Modem Programs 

PC-Talk II for PCjr 

PC-Talk II version 5 

IBMODEM modified for 
PCjr 

Modem Programs 

Kermit version 2.26 

QModem version 2.87E 


Miscellaneous Utilities 

Extended Disk Directory 
v5.4 

dBASE Phone Utility 

Time Keeper v1.4 

Extended Batch Language 
v2.01b 


109-110 Capital PC Remote 
Bulletin Board System 
RBBS-PC version 12.3b 


105 


106 


107 


108 


A major contribution in the CP/M 


by Hank Kee 


public domain world were the MOD- 
EM and XMODEM programs, written 
by Ward Christensen way back in 
1978. They established a file transfer 
communications protocol that has be- 
come a de facto industry standard. 
There are now many variants of that 
program. The fact that Ward made the 
source code available enable many 
others to build incremental functional- 
ity on to it. There are now many equiva- 
lent communication modem programs 
written for the IBM PC using XModem 
as the protocol. One of the most popu- 
lar one is PC-Talk II, written by 
Andrew Fluegelman. PC-Talk III has 
evolved very quickly into the equiva- 
lent standard for PC-DOS that MOD- 
EM is for the CP/M world. 

The primary advantage of any prog- 
ram written for the IBM PC is the stan- 
dardization of the hardware configura- 
tion. PC-Talk III needs not to be cus- 
tom fitted like MODEM and 
XMODEM since the various hardware 
assignments have been predetermined 
by IBM. Add to this the use of a very 
good screen presentation, PC-Talk II 
has become a very sophisticated com- 
munication program. There are also 
now versions of it that will run on the 
PCjr. 

A major attraction of PC-Talk III is 
the availability of the source code. The 
program was written in IBM BASIC. 
There are many more people who can 
understand BASIC than there are who 
can write programs in assembler for- 
mat. A compiled version of PC-Talk III 
can run up to 9600 Baud in addtion to 
the standard modem speeds of 300 and 
1200. Those who have the D. C. Hayes 
300 Smartmodem, the user can alterna- 
tively run at 450 Baud. 

A user’s first impression of PC- 
Talk III is the seeming confusing varie- 
ty of available commands. The HOME 
key command however lists all the va- 
rious options without requiring the user 
to remember the combination of ALT 
keys. The documentation is very com- 
plete. The only thing lacking as com- 
pared with commercial offerings are 
terminal emulations (e.g. DEC VT- 
100) and a comprehensive HELP direc- 


tory. 
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Like PC-Talk III, RBBS-PC was 
developed using the IBM BASIC inter- 
preter and compiler. The equipment re- 
quirements are minimal. Some of the 
functions of this system include bulle- 
tins, messages, and file utility upload/ 
download. 

Another major contribution to the 
IBM PC community of public domain 
software is RBBS-PC. The Capital PC 
User Group, in the Washington D.C. 
area, has been developing and distri- 
buting RBBS-PC. This is a high func- 
tion remote bulletin board system for 
the IBM PC. The latest version (12.3b) 
includes multiuser capability. 

RBBS-PC is very responsive as a 
system. Since it was written in BASIC, 
it does not, in the true sense have the 
ability to access files through multiple 
subdirectories. Messages are all 
grouped together thereby making ac- 
cess to a ‘‘topic’’ cumbersome. 
However the source code is there for 
the more adventuresome. 

For more information on contribut- 
ing or obtaining any of the PC/Blue 
public domain software write to: 


New York Amateur Computer Club 
Box 106 

Church Street Station 

New York, NY 10008 


EDITOR’S PAGE 

(continued from page 4) 

commercial magazine publishing com- 
pany. But we feel that this is an impor- 
tant magazine and that it needs to be 
published. 

In going back into the magazine 
publishing business my family and I 
feel we are better prepared for the de- 
mands on our time then we were the 
first time around. We also realize that 
we will have to underwrite this en- 
deavor and thus this will really be a 
labor of love. Hopefully, at some point 
(in the not too far distant future) we 
may break even and eventually be com- 
pensated for all our work. For this to 
happen we are counting on a great deal 
of help from our friends. 

If you feel as we do, that there is a 
real need for this magazine, then please 
subscribe and tell all your friends to 
also do so. Also, recommend that com- 
panies advertise in MICRO/SYSTEMS 
JOURNAL and please tell advertisers 
that you saw their ads in MICRO/SYS- 
TEMS JOURNAL. 


I would like to hear your reaction to my 
comments and to this first issue. Please 
let me know where you think MICRO/ 
SYSTEMS JOURNAL ought to be going 
in serving sophisticated micro systems 
users. 
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possible! 


If you’re a C language 
programmer whose patience is 
wearing thin, who wants to spend 
your valuable time programming 
instead of twiddling your thumbs 
waiting for slow compilers, who 
just wants to work fast, then it’s 
time you programmed with the 
BDS C Compiler. 

BDS C is designed for 
CP/M-80 and provides users with 
quick, clean software 
development with emphasis on 
systems programming. BDS C 
features include: 


e Ultra-fast compilation, linkage and 
execution that produce directly 
executable 8080/Z80 CP/M command 
files. 

e A comprehensive debugger that 
traces program execution and 
interactively displays both local and 
external variables by name and 
proper type. 

¢ Dynamic overlays that allow for run- 
time segmentation of programs too 
large to fit into memory. 

e A 120-function library written in both 
C and assembly language with full 
source code. 


Plus... 

e A thorough, easy-to-read, 181-page 
user’s manual complete with 
tutorials, hints, error messages and 
an easy-to-use index — it’s the 
perfect manual for the beginner and 
the seasoned professional. 

e An attractive selection of sample 
programs, including MODEM- 
compatible telecommunications, 
CP/M system utilities, games and 
more. 

e A nationwide BDS C User’s Group 
($10 membership fee — application 
included with package) that offers a 
newsletter, BDS C updates and 
access to public domain C utilities. 


BDS C is designed for use with CP/M-80 


not currently available for CP/M-86 or MS- 
DOS. 


CP/M-80 C Programmers ... 


Save time 


... with the BDS C Compiler. Compile, link 
and execute faster than you ever thought 


Operating systems, version 2.2. or higher. It is 


Reviewers everywhere have 
praised BDS C for its elegant 
operation and optimal use of 
CP/M resources. Above all, BDS C 
has been hailed for it’s remarkable 
speed. 


“T recommend both the 
language and the implementation 
by BDS very highly.” 

Tim Pugh, Jr. 
in Infoworld 


“Performance: Excellent. 
Documentation: Excellent. 
Ease of Use: Excellent.” 
InfoWorld 
Software Report Card 


“|. a Superior buy...” 
Van Court Hare 
in Lifelines/The Software 
Magazine 


BYTE Magazine placed BDS 
C ahead of all other 8080/Z80 C 
compilers tested for fastest 
Object-code execution with all 
available speed-up options in use. 
In addition, BDS C’s speed of 
compilation was almost twice as 
fast as its closet competitor 
(benchmark for this test was the 
Sieve of Eratosthenes). 


Don’t waste another minute on 
a slow language processor. Order 
your BDS C Compiler today! 


Complete Package (two 8” SSDD disks, 
181-page manual): $150 

Free shipping on prepaid orders inside 
USA. 

VISA/MC, COD’s, rush orders accepted. 
Call for information on other disk 
formats. 


re, Inc. 


BD Software, Inc. 
P.O. Box 2368 
Cambridge, MA 02238 


(617) 576-3828 
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he club meeting is over and 
the gang has adjourned to 
the diner for a bite and 
some bull. One of the old 
timers laments that every- 
thing being written is spoon fed IBM. 
CP/M is dead and nothing new is or will 
happen in the Digital Research environ- 
ment — at least so says our “‘expert.”’ 


It may well be that the eight bit 
world will never see windows or inte- 
grated spreadsheet-databases that draw 
pictures of fish while communicating 
with the 82 other machines in their net- 
work. If CP/M’s fate is an early death 
much of the fault will lie with Digital 
Research Inc. While DRI touted the 
coming of CP/M Plus, SIG/M brought 
out Rich Conn’s ZCPR and ZCPR2 — 
and they did just about everything Plus 
did using CP/M 2.2. Had DRI come out 
with the product on schedule and then 
supported it, CP/M Plus and not ZCPR 
would be the 8 bit system of choice. 


DRI failed us in eight bit, and what 
it did in 16 bit borders on a ‘‘death 
wish.’’ In CP/M-86 Plus we saw one of 
the finest operating systems around. 
Yet DRI chose not to release it. They 
have touted Concurrent CP/M under a 
variety of names, and then failed to 
promote the product after it was finally 
released. Watching Concurrent run on 
a PC and on a CompuPro shows little 
advantage to using it on the PC, but 
tremendous potential for the S-100. 
Yet, while our local DRI office bends 
over backwards to be helpful, the Paci- 
fic Grove group seems to do everything 
they can to make you go someplace 
else. It may be easier to purchase top 
secret CIA reports than it is to buy 
generic Concurrent for an S-100 — and 
perhaps even cheaper! 


While we can understand some of 
the problems of DRI and are pleased to 
see the Japanese companies make their 
move to CP/M, all is not lost. SIG/M 
continues to support CP/M, CP/M 
Plus, CP/M-86 and Concurrent CP/M 
(or MP/M). Our most recent releases 
continue this tradition with a volume of 
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In the SIG/M 
Public Domain 


CP/M Plus utilities (SIG/M Volume 
212) and a CP/M-86 version of Kermit 
(SIG/M Volume 211). For those of you 
not familiar with Kermit, it is a modem 
program developed by Columbia Uni- 
versity equally at home on micro and on 
mainframe. The full SIG/M library will 
shortly be available for downloading 
with Kermit from a mainframe in 
Somerset, New Jersey. 

On the 16 bit side, we are trying to 
release software that will operate under 
plain CP/M-86 as well as Concurrent. 
Volumes 216 and 217 released in Janu- 
ary 1985 contain the latest version of 
Modem 7 for CP/M-86. Earlier releases 
had contained translations of much 
simpler Modem 7 versions. This new 
release is a full feature modem with 
auto dial and all of the other extras 
found in the latest versions. Further, it 
supports both the CompuPro and the 
Gifford versions of MP/M. We have 
often heard users of the 8-16 multi-user 
system complain that they could not get 
a modem program to work on their sys- 
tem. That software is now available 
free. 

Also on Volume 217 is a Z80 emu- 
lator for CP/M-86. With this program 
you can simulate a Z-80 environment 
on an 8086 machine. The same type of 
cross-fertilization is attempted on 
Volume 212 with a program to read 
MSDOS disks under CP/M 80. Often 
we have bought commercial software 
only to find it did not perform as antici- 
pated. The same holds true with public 
domain software, except that in most 
cases SIG/M also distributes the source 
code. As improvements and fixes are 
made, new versions are issued. 

We were unable to get the MSDOS 
disk reading program to work but re- 
leased it anyway with a request that 
somebody fix it and send it to us. (Same 
thing happened with the Z-80 emulator 
on Volume 217. We released it last year 
with a request that someone get it to 
work, and Bill Earnest did just that.) 

In 1984 SIG/M received its first 
contribution from Professor Harold 
McIntosh from the Universidad Auton- 


by Stephen M. Leon 


oma de Puebla, Mexico. It was called 
REC, or Regular Expression Compiler, 
and was a ‘‘compiler compiler.’’ Using 
braces and plus and minus symbols, 
REC wrote beautiful 8080 and 8086 
programs. We asked Dr. Andy Bender, 
SIG/M’s resident compiler expert, to 
try REC and he just went wild. REC is 
not for the novice! It is for those with a 
craving to learn who already have basic 
skills. It can open up a new world of 
programming. An updated REC in 
8080 and 8086 with and without float- 
ing point math is available on Volumes 
213 and 214. On volume 215 we have 
new REC documentation and a new 
version of CNVRT, a REC program 
that simplifies REC programming. 

If the concept of REC is obscure to 
you, take a look at the product it pro- 
duces. Using REC, Professor McIntosh 
has written RUN (SIG/M Volume 215) 
which allows you to run a CP/M 80 or 
CP/M 86 file (squeezed or unsqueezed) 
located in a library. For more informa- 
tion about the many REC volume and 
programs written using REC, check the 
new January 1985 SIG/M catalog 
(covering Volumes | through 217). 

SIG/M Volumes are available on 
8°’ SS SD Disks for $6.00 each ($9.00 
foreign) directly from SIG/M, Box 97, 
Iselin, NJ 08830. Printed Catalogs are 
$3.00 each ($4.00 foreign). Disks in a 
variety of formats may be obtained 
through the world wide SIG/M dis- 
tribution network. The distributor list is 
included with the printed catalog. A 
disk version of the catalog (Volume 00) 
available for $6.00. 

SIG/M is a non-profit group oper- 
ated by non-paid volunteers and is a 
sub-group of the Amateur Computer 
Group of New Jersey Inc. 


Steve Leon is the SIG/M Disk Edi- 
tor. In other words, he is the person 
who assembles, compiles and edits all 
the of the SIG/M public domain soft- 
ware disks. Thus, he speaks with the 
greatest authority as to what is going 
on in the SIG/M public domain soft- 


ware area. 
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CP/M TurboDos CP/M+ MP/M 


“he — 


ee med 
y 


your ‘round-the-clock gateway to development 


Introducing The NightOwl Connection... 
and support for 8-bit systems. 


F eeling abandoned? Left high and dry as software devel- 
opers defect in droves to the 16-bit camp like lemmings 
rushing to the sea? The NightOwl sees through the dark hype 
and murky fads. He’s here with the help you need — any 
time you need it. 


That's the concept behind The NightOw!l Connection” — a 
multi-user, remote access system that’s on-line 24 hours a day 
offering you the best in new utilities and applications pro- 
grams for the 8080 family of microcomputers. 


If you're tired of dodging busy signals and threading your way 
through a haystack of dated Public Domain programs on your 
local RCP/M, here’s relief. The NightOw! Connection’ is 
your complete, on-line warehoure of 8-bit software, featur- 
Ing: 

@ The latest in public domain programs: ZCPR (1, 2 & 3) plus 
enhancements; Languages, including a complete Falconer 
PascalP library; Utilities; Tool boxes; Applications; even an 
8080-to-8086 translator. 

e Support for C, Pascal, WordStar, dBASE II and BASIC. 

® A total of 36 separate user directories, two of them dedi- 
cated to Kaypro and Osborne software. 

@ A message and conference system that allows you to com- 
municate with other subscribers and seek direct help from 
NightOwl’s programmers, system developers and customer 
service department. 


Best of all, the Connection gives you something no other re- 
mote access system can ever offer: a treasury of programs for 
CP/M, CP/M 3 and TurboDos operating systems developed 
exclusively for our subscribers plus a 10 percent discount on 
all purchases of proprietary software released by NightOwl 
Software, Inc. 


We're the developers of MEX 1, the communications package 
that set modems dancing on their serial cables last year. 
You'll find more MEX 1 support — from latest overlays to the 
most sophisticated command files — on the Connection than 
anywhere else. But MEX 1 is only the beginning. 


! ; Y his year, we're offering a host of new programs, includ- 
ing two hot utilities: 

CAPTURE, a CP/M traffic controller, can instantly redirect the 

Output of most programs from screen to printer, from printer 

to disk, from disk to screen — you name it! 

GENPATCH, a debugging aid that modifies the TurboDos 1.3 


GEN program to produce MAC and SID compatible symbol 
files. 


.. and then there’s MEX If, the program that redefines tele- 
computing. If you think MEX 1 is powerful, wait til you ex- 
perience the thunder of MEX // with its conditional command 
executions, compacted subroutine design — and unlimited 
expandability! A strictly proprietary communications system, 
MEX II is currently undergoing beta testing, and is due to be 
released early this spring at a price of $99.95. 

Normally, subscribers to The NightOw! Connection would be 
entitled toa 10 percent discount on MEX /I. But for a limited 
time, we're offering a special introductory package: For the 
price of the Connection’s standard sign-up fee of $100, new 
subscribers will receive a one-year subscription to the system 
plus a fully documented copy of MEX // at no extra cost. Sub- 
scriptions can be renewed for $50 a year. 


= — 
To order outside Wisconsin, call 1-800-NITEOWL. In Wisconsin, call 414-563-4013. Wf master charge — 
a Or write: NightOwl Software, Inc. Route 1, Box 7, Fort Atkinson, WI 53538 SET, eae 


dtwarrine, 


NightOwl 


The following are the contents of the most recent 


SIG/M volume releases: 


Volume 210 CP-M 86 Utilities 

released January 18, 1985 

BLIST -LBR multiple file printer 

CLCIB86 .LBR  CB86 command line interpreter 

CRC .CMD_ CRC checker in CP-M 86 

CRC-64 AQ6 / 

CRC68K -LBR ~~ CRC checker in CP-M 68K 

CRCBUILD .LBR builds catalog files — CP/M 80 & 
86 

PUT .AQ6 copies files between user areas 

PUT .CMD / 

SQ183 CMD CP-M 86 file squeezer 

TAB86 LBR creates tabs in code 

UNTAB86 .LBR _ removes tabs from code 

USQ CMD CP-M 86 file usqueezer 

Volume 211 Kermit MODEM for CP-M 86 


released January 18, 1985 
86KERMIT .LBR 194K Kermit modem for CP-M 86 


Volume 212 CP-M Plus Utilities & Misc. Routines 
released January 18, 1985 


CHIS16 -CQ Chi-square calculation in C 


CPM2- + LBR allows 2.2 routines to run under 
CP-M Plus 

CPM3-CAT .LBR ~ CP-M Plus catalog program 

CPM3LIB_ .LBR ~ CP-M Plus subroutine library 

CURLY .LBR _ checks braces in C programs 

DAYS -CQ changes 01/18/85 to 1.18.1985 

FIND + 2 .LBR ~— updates FIND 

KPROFMT .LBR_ multidisk formats for Kaypro 2, 4 
& 10 

QS-CPM3 _.LBR resets disk attributes in CP-M Plus 

RDMSDOS .LBR _ reads MSDOS disks in CP-M — 
maybe ? 

SUPERZAP .LBR = Z80 disk utility similar to DU 

UNERA+ .LBR  UNERASE in CP-M Plus 

YAM H file missing from SIG-M 183 

Volume 213 Regular Expression Compiler (REC) 


(Volume 1 of 2) 

8080 Floating Point, 8086 w/o Floating Point Math 
Universidad Autonoma de Puebla, Mexico 
released January 18, 1985 


REC80F -LBR —_ 8080 REC with floating point math 
REC86 -LBR 8086 REC w/o floating point math 
Volume 214 Regular Expression Compiler (REC) (Vol 
2 of 2) 


8086 Floating Point, 8080 w/o Floating Point Math 
Universidad Autonoma de Puebla, Mexico 
released January 18, 1985 


REC80 -LBR = 8080 REC w/o floating point 
REC86F -LBR = 8086 REC with floating point 
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Volume 215 
RUN — 
executes files from SUBMIT files or libraries 
Universidad Autonoma de Puebla, Mexico 
released January 18, 1985 


REC Documentation, Updated CNVRT, 


CNVRT .LBR latest version of CNVRT 

HJELP .COM _ examine libraries as HELP files 
RECDOC LBR manuscript describing REC 

RUN LBR runs 80 & 86 programs from SUB 


or LBR files 


oa 216 MODEM (MDM840) for CP-M 86 and 


(Volume 1 of 2) 
released January 18, 1985 


MDM840 -AQ6 MDM Modem series translated for 
CP-M 86 

MDM840 = .DQC _ documentation file 

MDM840_—s .HQ6_—Csihex file 

MDM840 -NQT _ translator’s note 

M8LIB -AQ6 telephone auto dialer library for 
MDM840 

M8LIB CMD / 

M8LIB DOC / 

M8NM-40 AQ6 = / 

Volume 217 MODEM (MDM840) for CP-M 86 and 


MP-M (Vol 2 of 2) 
CP/M 80 Emulator; dBASEII Toolkit 
released January 18, 1985 


M8CGP- 1 .AQ6  MDM840 general purpose overlay 

MB8IN-1 .AQ6  CompuPro Interfacer *% overlay 

M8MCDOS .AQ6  CompuPro Interfacer 7% overlay 

QUEIN .AQ6 with Gifford MC-DOS 

M8MPMIN .AQ6  CompuPro MP-M 86 with 
MSUP.RSP 

MSUP AQ6 / 

MSUP -DQC / 

M8RB-1 -AQ6 —_— DEC Rainbow overlay 

Z80 -A86 — ~working CP-M 80 emulator for 
CP-M 86 

Z80 CMD / 

CBADDR _ .Z80 / 

CODE8086 .Z80 = / 

CODECB .Z80-~—s/ 

CODEED _ .Z80 / 

EDADDR__.Z80-—s / 

JUMPADDR .Z80—s / 

FUNCLIB .CMD_ dBASEII toolkit library 

DATELIB .CMD / 

MATHLIB .CMD / 

TOOLSLIB .DOC / 

LOGOFF .ASM bulletin board security system 

LOGOFF .COM / 

LOGON ASM / 

LOGON .COM  / 

LOGON .DOC / 

LUU -CQ Australian version of CP-M 86 LU 

LUU -CQD / 
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COMPETITIVE EDGE 


P.O. BOX 556 — PLYMOUTH, MI 48170 — 313-451-0665 
CompuPro, LOMAS, EARTH COMPUTER, MACROTECH, TELETEK 
$-100 CIRCUIT BOARDS 


CompuPro 286 CPU™ $695 Lomas Lightning 286" $821 MACROTECH 286/Z80H $995 TELETEKSYSMASTER II $899 
CompuPro MDRIVE-H® $495 Lomas THUNDER 186™ $1195 EARTHTURBOSLAVE! $399 ILLUMINATED TECH. $995 
1024x1024 Graphics 

FREE MICRO/SYSTEMS JOURNAL SUBSCRIPTION WITH PURCHASE OF ANY OF ABOVE 
DISK CONTROLLERS CPU BOARDS MEMORY BOARDS. VO SERIAL/PARALLEL 
CompuPro Disk 1A™ A&T $459 CompuPro286™ $695 CompuPro RAM 22™ 120ns $ 995 CompuPro System Support 1™ $297 
CompuPro Disk 3™ A&T $525 CompuPro SPU-Z™ $261 CompuPro Ram 23™ 64K 120ns $ 308 CompuPro Interfacer 4™ $297 
LOMAS LDP 72 Floppy Contr $220 CompuPro 8085/88" $327 CompuPro RAM 23 128K 120 $ 571 CompuPro Interfacer3™ $459 
Lomas WD1002 HD Contr $325 CompuProCPUZ™ $215 Lomas RAM67 128K 100ns $ 725 Lomas2ser, 2 par, clock $275 
Teletek FDC II Fipy cont $245 Lomas Lightning 286 $821 Lomas Megaram 256K 150 ns $ 476 Lomas Octaport8 serial $316 
Teletek HD/CTC HD/Tape $525 Lomas 8086 8MHz $420 Lomas Megaram 512K 150ns $ 876 Lomas Octaport4 serial $200 
80287 FOR LOMAS 286 $395 Lomas 8086 10MHz $520 Lomas Megaram 1024K 150ns $1596 TeletekPS102par, 4 ser $215 
80287 FOR COMPUPRO 286 $325 Macrotech 286/Z80 $995 Lomas Megaram 2048K 150ns $2995 Teletek| square 1 port $195 
SINGLE BOARD COMPUTERS HARD DISKS FLOPPY DRIVES S-100 COLOR GRAPHICS 
THUNDER 186 256K QTY 1 $1195 Rodime 13/1090ms $ 695 8"Mitsubishi 2894-63 $389 Lomas Color Magic 16K $476 
THUNDER 186 256K 3 UP $1095 Rodime 27/2190ms $ 895 5"Mitsubishi 485396 TPltorcompupro $150 Lomas Color Magic 32K $556 
TELETEK Systemaster® $ 557 Rodime53/4055ms $1395 5" Mitsubishi 4851 48TPI $150 CompuProPC VIDEO 16K $371 
Teletek SBC-1 6MHz 128K $ 695 Quantum Q540 45 ms $1395 5" National JA551-2 48 TPI torLomas $135 Illuminated Tech. Color Graphics $995 
Teletek SBC-II Dual Slave $ 854 Seagate 25/2080ms $ 695 5" TEACS5S5B for IBM PC® $135 1.T. Boardis 1024 x 1024 and 
TELETEK SYSTEMASTER Il® $ 899 Fujitsu13/1090ms $ 695 5"DbI.SidedColorDiskettes10Pk $ 25 runs Auto-CAD-Z& otheronLomas 
EARTH TURBO SLAVE | 8MHZ $ 399 5” Dbl. Sided Color Diskettes 100Pk $240 


LOMAS MARCH ONLY BOARD SETS 8086, 512K Megaram, LDP72, Hazitall & CCP/M $1748. Same but 286 instead of 8086 $2135. 


SYSTEMS READY TO RUN 


VALUE ADDED RESELLERS SPECIAL 

Lomas 286, 1024K, 6 serial, 2 Centronics, 20 MB Hard Disk, 1 - 5” Floppy Multi Concurrent Dos 

in 15 Slot Desk Mount Cabinet $4999 
or in 20 Slot Pronto Roll A Round All Constant Voltage Cabinet only $5695 
Options 40 MB HD, 80287, 10 Serial instead of 6, 24 MB Tape, 2nd Floppy 

Up to 2-8” and 2-5” Floppys. The 15 Slot cabinet 20 MB at $4999 is best buy. 


THUNDER 186 256K, 2-5” Floppys, 4 Slot cabinet 1 10/220 volt, Concurrent DOS® $1795 
THUNDER 186 512K, 1-5” Floppy, 4 Slot cabinet 4 Serial, 3 Centronics, 20 MB Hard Disk Multi-user Concurrent Dos® $3795 
Lomas 286 CPU, 1024K Megaram, 6 serial, 2 centronics, 15 Slot, 40 MB Hard Disk, 1-5” Floppy Multi-Concurrent Dos® $5799 
CompuPro 286, 512K Ram 22's, System Support 1, I/O, 15 Slot, 20 MB Hard Disk, 1-5” Floppy Multi-Concurrent Dos® $6095 
CompuPro 286; 1024K 120ns Dram, System Support 1, I/O 4, 15 Slot, 40 MB Hard Disk, 1-5” Floppy Multi-Concurrent Dos® $6395 
CompuPro 8085/88, Disk 1A, Interfacer 4, Ram 23 64K, 2-8” Double Sided Floppys, CP/M® 2.2, 10 Slot Cabinet $2895 
CompuPro CPU Z, Disk 1A, Interfacer 4, Ram 23 64K, 2-8” Double Sided Floppys, CP/M® 2.2, 10 Slot Cabinet $2795 
CompuPro 8085/88, Disk 1A, System Support 1, Interfacer 4, Ram 23 128K, 2-8” DSDD Enclosure 2 & DR Cab. CP/M 8-16 $3995 
Teletek Systemaster II, 8MHz Z80H 128K, Single user Turbodos ™ w/spooler, 2-8” DSDD Floppys 10 Slot canbinet $2695 
Teletek Systemaster II, Multi-user Turbodos™, 1-8”, 20 MB hard disk, 4 Hi Speed Slaves 128K, 10 Slot Cabinet $5695 
Teletek Systemaster I, CP/M 2.2, 2-8” DSDD FLOPPIES, 10 Slot Cabinet $2095 


LOMAS 24 MEGA BYTE TAPE BACKUP Sub System for MOST CP/M-86 & MSDOS S-100 Systems $1495 


Independent, Custom, Scientific Programming Service Available 


CABINETS TERMINALS PRINTERS 

CompuPro Enclosure 2™ Desk $611 Qume 102 Amber 14” $495 DATA PRODUCTS 8010 $495 
CompuPro Enclosure 2 Rack $645 Qume 102 Green 14” $490 DATA PRODUCTS 8020 $625 
Para Dynamics CVT Rack oR Cab2-8" Desk $395 AMPEX 230 $549 C. ITOH 8510 PARALLEL $350 
Para Dyn CVT Rack DR Cab 2-8” $495 C. ITOH 8510 SERIAL $455 
Para Dyn CVT Desk DR Cab 1-8”, 5” HD $425 SOFTWARE C. ITOH 8510 SP $475 
Para Dyn Roll A Round CVT Pronto $1195 CompuPro Concurrent Dos® $250 C. ITOH 8510 SR SERIAL $550 
Para Dyn 10 Slot Mini Pronto CVT $795 CompuPro CP/M® 8-16™ $175 C. ITOH 1550 PARALLEL $550 
Hard Disk 5” Floppy & Hard Disk Cab $175 Lomas MSDOS™ 2.11 $200 C. ITOH 1550 SR 180 CPS SERIAL $725 
Two 5” Hard Disk Cabinet $195 Lomas Multi Concurrent Dos™ $360 C. ITOH 1550 SP 180 CPS PARALLEL $695 


ALL PRICES & SPECIFICATIONS SUBJECT TO CHANGE AND STOCK ON HAND 

CompuPro is a registered trademark of VIASYN Corporation, MDRIVE-H, 8-16, Disk 1A, Disk 3, CPU 286, CPU 8085/88, CPU Z, RAM 22, RAM 23, System Support 1, Interfacer 3, interfacer 4, are either trademarks 
or registered trademarks of Viasyn, CP/M, Concurrent Dos are registered trademarks of Digital Research Inc., Turbodos is a trademark of Software 2000 Inc., Systemaster, Systemaster II are registered of Teletek 
Enterprises Inc., MSDOS is trademark of Microsoft, IBM PC is a registered trademark of International Business Machines. Thunder 186, Lightning 286, Lightning 1, LDP 72, Hazitall, Color Magic, are trademarks of 
Lomas Data Products. 


The C Forum 


hat a relief that C is 
such a ‘‘small’’ lan- 
guage. Few 
keywords or restric- 
tions to worry ab- 
out. No complex operators or datatypes 
to mishandle. The language is surpri- 
singly svelte for all its power. But while 
you were able to pick up a book on C 
and breeze through the first half, you 
may never have gotten very comfort- 
able with it, even if you’re fluent in 
another programming language. 

Why? C abounds with subtleties 
that are written between the lines in the 
UNIX manuals and most of the C lan- 
guage books that I’ve seen. One of the 
best places to really see these brought 
out are the experienced C program- 
mer’s code. They know all the tricks. If 
they were nice enough to leave com- 
ments, we might learn them also! 

As UNIX is being distributed more 
and more in binaries form, it is difficult 
to learn from UNIX source code sam- 
ples. Fortunately, many books have 
come out to fill the void and since they 
were written for the purpose of educa- 
tion, you would think they could do the 
job a lot better. But most of them 
slanted towards an introduction, while 
other are references. Very few discuss 
intermediate-level topics in detail. That 
is what this column will cover. 

You are encouraged to write to me 
about topics or problems that you want 
to know about. I want this column to be 
reader driven. Until it is, I will write 
about topics that I’m sure are of general 
interest. I just happen to have one here! 


Varlably-Sized Arrays 

If you’ve ever-written generic sub- 
routines that operate on arrays, you’ve 
probably run across the problem of 
trying to pass arrays of arbitrary sizes. 
For example, suppose we would like to 
have a routine that prints out matrices 
of arbitrary sizes. We start out: 


print_array(array) 
int array(][]; 
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The C compiler doesn’t accept this. 
(Mine prints out ‘‘null dimension’’.) 
This is because arrays are stored with- 
out information such as the number of 
rows and columns. Well, then lets try 
adding the size of the array to the para- 
meters. 


print_array(array ,r,c) 
int array[r][c]; 


The C compiler rejects this also, 
saying ‘‘constant expected’’. Variable 
sizes must be constant in C. What a 
pain! 

There are several ways of getting 
arbitrarily sized arrays, however. 

One way is to do the addressing 
yourself. With the help of a macro, this 
solution is readable. 


#define MAT(x,y) mat[x*c + y] 
print_matrix(mat,r,c) 
int *mat; 
int r, c; 
{ 
int i, j; 
for (i = O;i <r; i++) f 


for (j = 0; j < c; j++) f 
printf(‘*%d *’,MAT(i,j)); 


putchar(’ \n’); 
} 


Now, we can declare the matrix and 
call our routine as follows: 


int matrix[ROWS][COLUMNS]; 


print_matrix(matrix,ROWS ,COLUMNS); 


The main drawback to this solution 
is that it’s time-expensive. Each time 
you reference the array, you perform a 
multiplication and addition. Thus, to 
access every member in the array re- 
quires ROWSxCOLUMNS multiplica- 
tions. The other drawback is that the 
macro MAT requires the number of 
columns being available. We can do 
better. 

You may never have realized that it 
isn’t necessary to perform those multi- 
plications, simply because it seems in- 


by Don Libes 


herent in figuring out matrix element 
addresses. However, if we are willing 
to sacrifice some storage we can avoid 
the multiplication. 

What we do is calculate the addres- 
ses for the base of each row once and 
store them in a separate (one- 
dimensional) array. Then we can get to 
any element simply by adding the col- 
umn offset to the base address of the 
appropriate row. 

For example, a 5x3 array would 
require a 5 element ‘‘dope vector’’. 
Each element of the dope vector is an 
address of 3 elements of the array. 

Since we can get to every element 
of the matrix through the dope vector, 
there is no need to pass the array itself. 
So the first argument becomes the dope 
vector. (Its still called ‘‘mat’’ though.) 


Now print__matrix() looks like this. 


print_matrix(mat,r,c) 

int *mat{]; /* dope vector: array of pointers to ints 
ad | 

int £,¢; /* rows and columns */ 

int i, j; 


for (i=O;i<rjit++) { 
for (j=0;j<c;jt++) { 
printf(‘%d °’ mat{i){j]); 


putchar(’ \n’); 


This type of array takes a little more 
work to set up: 


int *matrix[ROWS]; /* this is the dope 


vector */ 
int i; 


/* now initialize each pointer in the dope 
vector */ 
for (i = 0; i < ROWS ; i++) { 
/* allocate space for the columns */ 
matrix[i] = (int *) malloc(COLUMNS * 
sizeof(int)); 
} 


print_matrix(matrix,ROWS ,COLUMNS); 


This technique has the disadvan- 
tages that it takes up a little more space 


(continued on page 19) 
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than a true array and it requires in- 
itialization (though you can create a 
subroutine to do this for you). 

But the advantages are many. It’s 
faster than real arrays because no multi- 
plication is performed to do addressing. 
Each row can have a different number 
of elements. Applications of this are to 
store different length strings in an array 
or keeping an open hash table. 

This technique also extends to high- 
er dimensioned arrays (where time sav- 
ings become even better). Also, these 
arrays can be created dynamically. A 
final goodie that I’ll mention is that by 
adjusting the dope vector (or the pointer 
to it), it’s possible to get 1-based (or 
any number) indices rather than 0. 


A general purpose programming 
language for string and list 
processing and all forms of 

non-numerical computation. 


SNOBOL4+ -—theentire 


SNOBOL4 language with its superb pattern-matching 
facilities * Strings over 32,000 bytes in length © Integer 
and floating point using 8087 or supplied emulator on 
* ASCII, binary, sequential, and random- Ca 


TS 
access I/O ® Assembly Language inter- “h +? 


face ® Compile new code durin —° 
g we 
program execution ® Create we wer 
SAVE files © Program Os. os 
S 
and datas ‘ 
pace “ee a\exre With 


to a. bytes od a MUZA & over 


100 sample pro- 


on ( ) 
RA ms oo 
yt grams and functions 


Don Libes 
seismo!nbs-amrf!libes ae 
w moe, od ‘“\ ie For all 8086/88 PC/MS-DOS or 
i ee aa ke eee ema te (ne # sCP/M-86 systems, 128K minimum 
Don Libes is a computer scientist of 5%" DSDD, specify DOS/CPM format 


working in the Washington DC area. He 
works on artificial intelligence in robot on™ 
control systems. He is also the son of Len- 


nie and Sol Libes. 


Thinking about buying one of those 
“‘key”’. progams?_(You-know,-the- names 
all start with words like ‘smart’, ‘‘magic’’, 


pro" etc.) Looking for a faster, easier. 
way to calc, or process words or data- 
bases? _|f.so,then-you-owe.it to yourself 
(and your computer) to check out XtraKey. 
Quite frankly,.we think it's the best-of-all 
the ‘‘key'’ programs. At any price! (And 
wait—till you-see our_price.) 


Just like the other ‘‘key’’ programs, 
XtraKey lets you redefine your regular 
keyboard keys to be anything you want. A 
word, a paragraph, a series of commands 

. whatever you hate to type over and 
Over again! Close a letter in split seconds. 
Log onto bulletin boards at the touch of a 
key. Create instant “macros” for database 
programs. You can change, use or make 
Up New definitions anytime ... even while 

— to available CP/M TPA 


et 


Add $6 for 8” SSSD CP/M-86 diskette 


Send check, VISA, M/C to: $95 


" Catspaw, Inc. 


plus *3s/h 


P.O. Box 1123 ¢ Salida, CO 81201 © 303/539-3884 


out “keys” 
the competition! 


New version 2.3! Even more features! 


running. a favorite program like WordStar 
or dBASE II! Unlike other ‘‘key’’ pro- 
grams, there's-no-limit on definition 
lengths* And, our advanced XShift feature 
lets individual keys have -up to. 16 meaning 
without losing their normal functions! 


XtraKey can also talk to your printer 
or video display! Change from regular to 
compressed type while working on a 
spreadsheet. Address an envelope while 
editing a document, Or call up your own 
custom help or menu screens (almost like 
having windows!) 


There’s more! If you make a mistake 
while entering a definition, you can correct 
it without starting over (Unlike so-called 
‘smart’ programs.) Definitions can even 
be made to pause while you type from the 
keyboard. XtraKey also has built-in batch 
processing. Automatic definition file 
loading. Program chaining. Printer on/off 
function. Screen character filter. All in one, 


Trademarks: XtraKey and XShift — Xpert Software; dBASE Il — Ashton-Tate; WordStar — MicroPro Int’! 


neat little package that uses-less-memory 
AND disk space than other ‘‘key'’ pro- 
grams. XtraKey is easy to-use and in- 
cludes a 70-page manual. No installation 
or system- modifications required. 


Now, for $39.95, aren’t you ready for. 
real ‘‘key’’ power? 


ORDERING INFORMATION 


XtraKey will run on CP/M 2.2 based com- 
puters only. To order, send check or money 
order for $39.95 plus $3.00°shipping and handI- 
ing (U.S. & Canada). California residents must 
also add $2.40 sales tax. Inquire on foreign 
orders. Specify make and model of computer 
and_disk format. VISA and MasterCard accepted 
(please provide card number and expiration 
date). All orders, please include your telephone 
number. 


Xpert Software 
8865 Polland Avenue 
San Diego, CA 92123 

(619) 268-0112 


Bringing up 
CP/M Plus 


on your System 


by Sheldon Kolansky 


any of us have been 
watching Digital 
Research tout the 
new version of 
CP/M-80. The fea- 
tures look so nice, 
and they are. The 
buffering should 
make it run much faster, etc. Well, I 
went out and bought the new version 
and worked for several weeks getting it 
going. I would like to pass on my trials 
and tribulations, maybe I can make it 
easier for you (if you should decide to do 
it). 

The Digital Research manuals are 
getting better, but some areas leave a lot 
to be desired. The recommended first 
and most important step is to bring up 
the simplest system possible. My first 
system started with just a single density 
disk and only console I/O. 

The BIOS provided is broken up 
into several modules which can be as- 
sembled separately and then linked to- 
gether. I modified the appropriate mod- 
ules and tested the linked BIOS to my 
satisfaction. CP/M 3 BDOS is provided 
in relocatable format, and your BIOS 
‘must be linked to it. 

After the entire system is linked to- 
gether, a program called CPMGEN 
must be executed. CPMGEN asks you 
for pertinent information via a question 
and answer session at the terminal. This 
information includes how much memo- 
ry you have, terminal parameters, etc. 
The output of CPMGEN is CPM3.SYS, 
the actual operating system image. 

Here are two tidbits of important 
information: First, make your CP/M 3 
system reside under SID loaded via 
your current system. This will allow you 
to debug the system using SID. Second- 
ly, the sample BIOS provided assigns 
space for the allocation vectores of the 
DPH. GENCPM asks if double alloca- 
tion vectors are to be used. If your an- 
swer to GENCPMs question is Yes, 
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then be doubly sure you have allotted 
sufficient space in the allocation vector. 

Then I tried to figure out how to 
boot it. The DRI manuals talk about 
CPMLDR, which reads into memory 
by a hardware boot, and is supposed to 
read the system image off the disk and 
put it in memory and execute it. If you 
read closely you will find out that you 
must write a LDRBIOS, but who knows 
what a LDRBIOS is? the LDRBIOS is a 
basic BIOS that performs limited func- 
tions of your regular BIOS for the sole 
purpose of reading a file (CPM3.SYS) 
into memory and executing it. The 
LDRBIOS is linked to CPMLDR.REL 
to form CPMLDR.COM. 
CPMLDR.COM is read into memory 
by whatever boot process you intend to 
use. CPMLDR can also be executed as a 
file under your current operating sys- 
tem; this makes it much easier to debug. 

One area of the manuals that leaves 
a lot to be desired is the description of 
the LDRBIOS. DRI manuals present 
about a page of “information” on the 
LDRBIOS. Well, after many hours of 
_playing, I determined that the only calls 
used by CPMLDR are: BOOT, 
CONOUT, SELDSK, HOME, 
SETTRK, SETSEC, SETDMA, 
SECTRN, and READ. I formed my 
version of the LDBRIOS by combining 
the BIOSKRNL, CHARIO, and my 
disk module together in one file and de- 
leted all the extraneous “nice” features, 
and RETurned calls that wouldn’t be 


used. I did not include the SCB as it isn’t 
necessary. The DPH macro that the 
sample BIOS calls cannot be used be- 
cause it relies upon GENCPM to allo- 
cate buffers, and GENCPM is used on 
generating the operating system only, 
not the LDRBIOS. You have to allocate 


‘buffers for the directory, data, check 


vector and allocation vector (I guessed 
on the last two). This reduced the size of 
the code immensely. The basic single 
density system worked after a couple of 
minor bugs were squashed. 

The single density system worked 
well. Be sure to test it completely. In the 
later steps I wished I had not blown 
away this version of the system, which 
would have have let me go back and test 
certain features with which I was hav- 
ing trouble. 

I got brave and decided to get dou- 
ble density working with automatic 
density selection, and that’s when all my 
problems started. The following notes 


should outline some of my 
solutions/problems with the 
LDRBIOS. 


MOVE: The call to MOVE is re- 
quired if the CPMLDR is to do the built 
in blocking/deblocking. 

SECTRN: must be modified if no 
translation is required. CPMLDR or 


‘BDOS reads sectors starting at 0 and re- 
‘lies upon SECTRN to provide a legal 


sector number for the disk. A no-trans- 
lation-required routine, as usually pro- 
vided with the sample BIOS, will pass 


Table 1. Benchmark Tests 
Command Line> MACFMT PMATEFMT.ASM TYPE FMT.ASM 


System 

V2.2 1:47 
V3.0 

NB 1:46 
S1 1:46 
$3 1:38 
RD-A 1:49 
RD-C 1:10 


[NOPAGE] 
9.8 44.5 
9.8 45.0 
12.9 49.9 
12.8 50.3 
13.0 49.8 
17 46.0 


Micro/Systems Journal March/April 1985 


FG@GH 


2.2 BDOS 


sIo 
3.4 RESBIOS 


886GH 


Banked BIOS 


Bonked BDOS 


Disk Buffer 


Directory 7 
Deblocking 
Buffers 


CCP Storage 


8H 


Bank 8 Bank 2 
Memory Mop 
F@QGH 
oe RESBOOS 
8e@eH sesseetteseeney 
Banked BIOS 
Bonked BOOS 


Disk Buffer 


Directory 7 
Deblocking 
Buffers. 


CCP Storage 
GH 


Bank @ 


Bank 2 


Memory Map 


Bank 1 


;LAST EDITED 07/06/83 12:20:40 
;ADDED DOUBLE DENSITY SUPPORT 

;LAST EDITED 07/02/83 16:09:42 
;LDRBIOS BIOS FOR CPM3 CPMLDR 


MACLIB CPM3 

3 

3 DISK READ AND WRITE ENTRY POINTS. 
5 

;JADE DOUBLE DENSITY DISK CONTROLLER 


; 
D$PORT EQU 043H 
D$ADDR: EQU OFCOOH 


;DOUBLE D PORT ADDRESS 
;ADDRESS OF DD BUFFER 


; DOUBLE D HARDWARE COMMANDS 


DCS$MBO EQU 01H ;SELECT DOUBLE D BANK 0 
DC$MB1 EQU 03H ;SELECT DOUBLE D BANK 1 
DCsSOT EQU 0 ;SWITCH DD MEM OUT OF SYSTEM 
DCS$INT EQU 02H ; ISSUE DD Z80A INTERRUPT 
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This memory map was Used to debug the 
CP/M 3 operating system. 


Oisk Buffer 


Bonk 3 


Disk Buffer 


Bank 3 


sector 0 to the floppy, and since most 
floppies start with sector 1, this causes a 
problem. This same “problem” existed 
with 2.2 if you did the deblocking. You 
can get around it by incrementing the 
sector number by one if no translation is 
required. 

DIRBCB: I didn’t know what the 
values for sector, etc. would be, so I ar- 
bitrarily assigned 0 to all except the 
buffer address. Boy, was that a mistake! 
The blocking/deblocking algorithm of 
the CPMLDR went to read the first sec- 
tor of the directory, checked the 
DIRBCB and decided that the sector 
had already been read since the bytes 
described block 0, the first sector. 
CPMLDR then went and searched the 
directory buffer for CPM3.SYS, didn’t 
find it, and then read the next directory 
sector. Therefore if CPM3.SYS was in 
the first directory sector CPMLDR 
could not find it. The answer to this 
problem took four calls to DRI (I dialed 
about 400 times to get through four 
times). Set the first byte of the DIRBCB 
to OFFH and this will unallocate the 
buffer. 

SID is provided with CP/M 3, and 
is a handy debugging tool, but could use 
some new features to work with relocat- 
able files. It is difficult at best to deter- 
mine the location of the code segment 
that you’re working on, and when you 
do find it, SID does not allow you to en- 
ter it as an offset for all future address 
references. SID is described in the man- 
uals two or three times and DRI pro- 
vides a handy SID command summary 
card; only one of these descriptions is 
correct—table 5-18 of the Users Guide. 
The old SID required: 


Ifilename.typ 
Roffset 


to read a .HEX file. The new SID uses: 


Rfilename.typ, offset 


‘to read either a .COM or .HEX file. I 


like the new SID better, but think the 
manuals should reflect how it works. 

LINK is also provided with CP/M 
3. It does a fine job providing you write 
excellent code the first time and don’t 
have to find it for debug. You should be- 
come familiar with the HEX math com- 
mands in SID. 

In version 2.2, if you wished to re- 
direct the console or printer you built 
the feature into your BIOS and used the 
IOBYTE to control it. DRI has been 
nice enough to reserve location 3H for 
the IOBYTE, but no longer supports 
the IOBYTE function and has replaced 
it with DEVICE. DEVICE is much bet- 
ter than IOBYTE, in that it is much 
more flexible, and allows more choices. 
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But my boot ROM had the IOBYTE 
support blown in. I strongly recom- LISTING #1 
mend that IOBYTE support in ROM be 


removed if you would have a banked 3; DISK CONTROLLER MODULE LINKAGE (DCM - VER 2.2) 


system. If not, you must limit the buffer ,,_ pom ADDRESSES DEFINED ) 
area in bank 0 which may be in context 
whenever character I/O is done, since DDSCBT EQU 0370H+D$ADDR ;COMMAND BLOCK {BANK 0) 

: _  DD$SBUF EQU 0380H+DSADDR ;SD SECTOR BUFFER (BANK 0) 
= a be pac pleas DD$DBUF EQU 0+D$ADDR ;DD SECTOR BUFFER (BANK 1) 
tents of the IOBYTE. Upon initializa- opsppg Eau 03A0H+D$ADDR ;1D SEC DPB (BANK 0) 
tion you must now init the IOBYTE in bbdsDpF EQuU 03B1H+D$ADDR ;1D SEC FLAGS (BANK 0) 


two different banks, 0 and 1. Failure to 


use caution will result in your system +! DCM COMMANDS |} 


trying to talk to alternate devices and pcesiog_ Equ 000H ,LOG ON DISKETTE 
mislead you into wondering where your pcsRDS EQU 001H ;READ SECTOR 
system went. DC$WRS EQU 002H ;WRITE SECTOR 
The version 1 and 2SYSGEN pro- - : : 
gram has been replaced by COPYSYS. I — nf a2 00H IPTIES TS Diets Ee EARS 


have found two bugs in COPYSYS. 
COPYSYS will read a .COM file and MONIT EQU ROM 


place it on the system tracks. One bug BLOCK: EQU ROM+36 ;BLOCK MOVE ROUTINE(LDIR) 

related to reading this file under version 4p EQU 13 

3.0. COPYSYS calls BDOS function 50 LF EQU 10 

(direct BIOS) to set the DMA address  ?BOOT: JMP INIT ; INITIAL ENTRY ON COLD START 

and should have called BDOS function ?WBOOT: JMP STOP ; REENTRY ON PROGRAM EXIT, WARM START 


26 (set DMA address) while reading the = zconst. ymp stop 


: ; ; RETURN CONSOLE INPUT STATUS 
file, and function 50 when reading or = ?CONIN: UMP ROM+0CH ; RETURN CONSOLE INPUT CHARACTER 
writing the system tracks image. The ?CONO: JMP ROM+0FH ; SEND CONSOLE OUTPUT CHARACTER 
other bug appeared when I wrote the ?L1ST: MP STOP ; SEND LIST OUTPUT CHARACTER 
tack iniase onde: 30 to a 1K sator ‘TAUXO: MP STOP ; SEND AUXILLIARY OUTPUT CHARACTER 
back CPM en sing the Blocking 2AUXI: JMP STOP ; RETURN AUXILLIARY INPUT CHARACTER 
: : 2HOME: JMP HOME ; SET DISKS TO LOGICAL HOME 

and deblocking, and COPYSYS never 2s, psk: JMP SELDSK ; SELECT DISK DRIVE, RETURN DISK INFO 
told it to flush the buffer, therefore it ?STTRK: UMP SETTRK ; SET DISK TRACK 
never wrote the last sector to the disk. ?STSEC: JMP SETSEC 3 SET DISK SECTOR 

| 

i 

’ 


2STDMA: JMP SETDMA SET DISK I/O MEMORY ADDRESS 
This can be fixed by calling BDOS func- pean. Sp READ READ PHYSICAL BLOCK(S) 
tion 48 (Flush Buffers) at the end of the = 2wRiTE: UMP STOP ; WRITE PHYSICAL BLOCK(S) 
copy. 
In trying to make life simple, I ?LISTS: JMP STOP ; RETURN LIST DEVICE STATUS 
wrote the file shown in figure 2 to test. ?SCTRN: JMP SECTRN ; TRANSLATE LOGICAL TO PHYSICAL SECTOR 


COPYSYS, and also to be sure I was 2conos: yMP STOP ; RETURN CONSOLE OUTPUT STATUS 

placing the binary code in the proper ?AUXIS: ym? STOP ; RETURN AUX INPUT STATUS 

Piensa Ce Pee Cee ae ocr | RETURN ADDRESS OF DEVICE DEF TABLE 
2 : > : ; : : 

ed ee ee ake poe Bene ?DEVIN: JMP STOP ; CHANGE BAUD RATE OF DEVICE 


the file, used SID to load it overa field ?DRTBL: UMP STOP ; RETURN ADDRESS OF DISK DRIVE TABLE 
of zeros, and then saved it. After writing ?MLTIO: JMP STOP 3 SET MULTIPLE RECORD COUNT FOR DISK I/0 
it to the system tracks, I used a dump ?FLUSH: JMP STOP ; FLUSH BIOS MAINTAINED DISK CACHING 


program running under version 2.2 to 2moy: — yMP MOVE 
see that each sector contained data that ?TIM: UMP STOP 
verified its address. I also read this file ?BNKSL: JMP STOP 
into memory in order to easily deter- rao tag yt st 
mine what offsets to use in loading the : 

files that made up the system tracks 


BLOCK MOVE MEMORY TO MEMORY 

SIGNAL TIME AND DATE OPERATION 

SELECT BANK 

SELECT BANK FOR DISK 1/0 DMA OPERATIONS. 
SET SOURCE AND DESTINATION BANKS 


image. STOP: RST 7 ;NOT IMPLEMENTED 
I built many versions of the system i 

as each new feature was incorporated. psc: ; PRINT MESSAGE @<HL> UP TO A NULL 

All the features that could be incorpo- 7 SAVES <BC> & <DE> 

rated in the non-banked system were eat 3 

implemented before I continued on to pusgs_oop. 

banked systems. When I started work- MOV A,M 

ing with banking, my common area was ORA A 

a 32K segment from 8000H up. I had JZ PMSGSEXIT 

four 32K banked memory segments ini- ee 

tially which increased to 10 by the com- CALL ?CONO 

pletion of this article. The 32K common POP H 

area allowed me to keep the version 2.2 INX H 

system I was operating under, the ver- — pusosex a Pres. 

sion 3.0 system being debugged, and POP D 

SID in common memory. The progres- POP B 

sion followed to 3 extra banks, and then RET 
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; SELDSK 
SELDSK: XRA A ;SET FOR DRIVE ZERO 
STA @RDRV 
LOGIN: LXI D,LOG$MSG 
SHLD OPERAT IONSNAME 
LXI H,FDSDO ;POINT TO DRV 0 
LGIN1: SHLD DT$PTR  ;SAVE FOR LATER 
CALL BNKO ;SWITCH TO BANK 0 
CALL PMOVE ;SET UP COMMAND BLOCK 
MVI A,DC$LOG ;LOAD DCM LOG-ON CMND 
CALL DSK$EX ;PERFORM DISK OP 
JZ LOG$CK ;GO TO LOGON DISKETTE 
LXI H,0 ;ERROR, BAD LOG ON 
JMP DSK$ER ;BIOS EXIT 
SETDD: LXI H,1024 ;MUST BE DOUBLE 
SHLD SEC$SZ 
LXI H ,DD$DBUF 31K SECTOR BUFFER ADDR 
SHLD DD$BUF 
JMP BNK1 


; 
7 CHECK FOR JADE ID )* 
LOG$CK: LHLD DD$BUF ;DD BUFFER 


LXI D, JADE ID ;DE PNTS BIOS ID 

MVI B, ID$SZE ;SET LABEL SIZE 
LOG$1D: LDAX D! INX D ;GET LABEL CHARACTER 

CMP M! INX H ;DOES 1D SECTOR MATCH 

JNZ TR3740 ;ASSUME DISKETTE 3740 

DCR B ;DECREMENT COUNT 

JNZ LOG$1D ;CHECK IF ANOTHER CHR 


;( DISKETTE CONTAINS ID ) 
;( SET NO SECTOR TRANSLATION } 


TRNONE: LXI D, TRANS1 
LHLD DI$PTR ;ADDR OF PARA HDER 
MOV M,E ;SET LOW ORDER ADDR 
INX H j;NEXT BYTE 
MOV M,D ;SET HIGH BYTE 


;GET PARAMETER BLOCK FROM DD BUFFER AND MOVE TO HOST MEMORY 


CALL DPB$AD ;GET DPB ADDR IN DE 


LXI H,DD$DPB ;DPB ADDR 

LXI B,DPB$SZ ;DPB SIZE IN BYTES 
CALL BLOCK ;MOVE INTO DPB 

LXI H,OD$DPB ;1D DTA DNS 

MOV A,M ;LOAD SEC/TRK 

CPI 26 ; TEST FOR SD 

CZ TR3740 ;1F 0 USE 3740 TRN 

LHLD DI$PTR ;GET POINTER 

RET ;EXIT BIOS 


i 


3( SET 3740 SECTOR TRANSLATION 1)* 


TR3740: LX] D,TRANS ;SECTOR TRAN TBL ADDR 
LHLD DI$PTR ;ADDR DISK PARA HDER 


MOV M,E ;SET UP TRANSLATE VECTOR 
INX H 

MOV M,D 

LX1 D,11 ;OFFSET TO DPB ADDR 
DAD D ;POINT TO DPB 

LXI D,DPBSDO 

MOV M,E ;SET DPB TO SINGL DENS 
INX H 

MOV M,D 

XRA A 3A = 0 

STA DNS ;SAV 1T 

RET s;EX1T BIOS 


;( GET DRIVE PARA BLK ADDR ) 


DPBSAD: LHLD DT$PTR ;ADDR DISK PARA HDER 


XI D,12 ;DPB TBL PNTR OFFSET 
DAD D ;NOW AT DPB PNTR 
MOV E,M ;LOW ORDER ADDR 

INX H ;NEXT BYTE 

MOV D,M ;HIGH ORDER ADDR 
RET ;RETURN TO LOG USER 


MOVE : XCHG 
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only one bank using the rest of the mem- 
ory fora RAMDISK. I went back and 
built several versions of the system with 
as much code in common as possible, 
and saved them for benchmarks. 

My benchmarks are very oriented 
to the type of work that I do, like editing 
assembly language files, and assembling 
them. The source file I used to the test 
happens to be a format program which 
is relatively large (28K). The tree tests I 
used for comparison are the assembly of 
the file using MAC, read in PMATE 
and the file for editing, and lastly typing 
the file to the console. I always used the 
same diskette, and just changed the op- 
erating system on it. The six operating 
systems used are CP/M V2.2; CP/M 
V3.0 non-banked (NB); CP/M V3.0 
with 1 bank (1B); CP/M V3.0 with 3 
32K banks (3B); CP/M V3.0 with 1 
bank and a RAM disk using the floppy 
drive (RD-A); and the same system as 
RD-A only using the RAM disk (RD- 
C). The computer is an S-100 with a 4 
MHz. Z80 (JADE BIG Z) and a JADE 
DD Disk controller running 1 KB sec- 
tors on 8” diskettes. 


The above figures were obtained in 
only one run of each system and relied 
on the accuracy of a human and a stop 
watch. The RAM disk figures were not 
obtained using the same exact floppy, of 
course. 

As you can see there isn’t a great 
deal of change between systems. These 
tests are relatively unfair to the new fea- 
tures of CPM 3.0 since the assembly is 
CPU bound, and the TYPE is bound by 
the 9600 baud serial link to the terminal, 
but nonetheless, they are things I do. 

The assembly time is best on the 
RAM disk, as expected. The buffering 
in $3 does help, but maybe the extra 
RAM is best used by making a RAM 
disk. CP/M 3 does not allow any con- 
trol of the LRU (least record used) buff- 
ering algorithm, and therefore you are 
not able to optimize it for your 
application. 

The loading of a file to edit is very 
dependent upon I/O. The banked sys- 
tems seem to add about 30% to the I/O 
bound operation, and the RAM disk 
takes about 20% less. The files had not 
been used previously, so were not in the 
Data Buffers. When editing the file 
twice in a row, the second load also took 
12.8 on S3. No improvement even 
though I allocated a 48 sector buffer. I 
went back and reGENed the system to 
have 240 1K buffers, and still no im- 
provement. Maybe the LRU buffering 
is not working in my system. 

The TYPE test was included since I 
thought that things were going slower, 
and they are, about 10%. The RAM 
disk makes up for the 10% lost by bank- 
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ing. The increased time to type a file ina 
banked system could be due to BDOS 
always saving the old stack, changing 
banks, and restoring the stack on a per 
charcter basis. 

To do or not to do CP/M 3, that is 
the question. Well if you are looking for 
the added goodies like I/O redirection, 
ease in adding multiple disk controllers, 
editing command lines, fast warm boot, 
etc., then it is worth the effort. If you are 
looking for increased operating speed, 
stay with 2.2 and get a RAM disk. The 
things I really like are: fast warm boot, 
ease of installing RAM disk, confirm of 
wild card ERA, PIP, auto disk relog, 
I/O redirection, editing of previous 
i line, and the SAVE features. 


put CCP.COM and 
CeMLDE. COM on the system tracks, 
and while reading CCP during cold 
boot, save an image of it in bank 0. This 
gives me the feature of not having to 
have a system disk in drive A all the 
time. Due to auto density select, I still 
must use CNTRL-C if the floppies are 
of different densities. This makes a two 
drive system very easy to use. 

However, I had several reserva- 
tions about CP/M 3. 

On encountering a disk error, 
CP/M3 returns to the CCP, whereas 2.2 
would ignore the error if a return was 
typed, and continue what it was doing. 


Will all my software run under 3.0? 
-Yes and No. I have not found anything 
that would not run in a nonbanked sys- 
tem on single density diskettes. 

In a banked environment anything 
that jumps directly to the disk I/O 
BIOS vectors will not work. The disk 
routines are in bank 0, and the program 
is executing in bank 1. Since the wrong 
bank is in context when the routine is 
called, your system will probably jump 
to the right place in the wrong bank, and 
get lost. You should be able to correct 
this by changing the call to a BDOS DI- 
RECT BIOS CALL. 

If CP/M 3 is doing blocking and 
deblocking for the BIOS, any utility 
that calls the disk BIOS vectors directly 
will not work. In version 3 the entire 
sector is transferred on a read or write, 
instead of only the deblocked 128 byte 
segment as in V2.2. Also the maximum 
sector number for each track in CP/M 3 
is the Physical number not the Logical. 
For example if you have 8 1KB sectors 
per track on your diskette, in V2.2 all 
calls to the BIOS are relative to the max- 
imum sector number of 64 (eight physi- 
cal sectors X eight 128-byte logical sec- 
tors per physical sector) and transfer 
128 bytes per READ or WRITE. In 
version 3 the maximum sector number 
would be eight and every time you call 
the READ or WRITE, it puts 1024 
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bytes into your buffer. Many of the utili- 
ties like DU expect only 128 bytes, and 
therefore do not function properly. 
There are reasons to go to CP/M 3, 
but performance increases on a floppy 
based system doesn’t seem to be one of 


them. There are many nice features, but 
are they worth the $270 - 350 cost? 
Many of the features like hashed direc- 
tories would be more beneficial on hard 
disk systems. 


LISTING #1 


DB OEDH , OBOH 
XCHG 
RET 


HOME : LXI B,0 


; SETTRK 


;SET TRACK TO 0 


; SET TRACK. SAVES TRACK ADDRESS FROM <BC> 
i IN @TRK FOR FURTHER OPERATIONS. 


SETTRK: 
MOV L,C 
MOV H,B 
SHLD @TRK 
RET 


; SETSEC 
} SET SECTOR. 


SAVES SECTOR NUMBER FROM <BC> 


i IN @SECT FOR FURTHER OPERATIONS. 


SETSEC: 
MOV L,C 
MOV H,B 
SHLD @SEC] 
RET 


SETDMA 


wee ee ee 


SETDMA: 
MOV L,C 
MOV H,B 
SHLD @DMA 


SECTRN 


SECTRN: 

MOV L,C 
MOV H,B 
MOV A,D 
ORA E 
RZ 

XCHG 
DAD B 
MOV L,M 
MVI_ H,0 
RET 


SET DISK MEMORY ADDRESS. 
FROM <BC> IN @DMA AND SETS @DBNK TO @CBNK 
SO THAT FURTHER DISK OPERATIONS TAKE PLACE 
IN CURRENT BANK. 


SECTOR TRANSLATE. 
WITH SECTOR IN <BC>. 
SECTOR IN <¢HL>. 
(<DE>=0) THEN RETURNS PHYSICAL=LOGICAL. 


SAVES DMA ADDRESS 


INDEXES SKEW TABLE IN <DE> 
RETURNS PHYSICAL 
IF NO SKEW TABLE 


; DISK 1/0 ROUTINES FOR STANDARDIZED BIOS INTERFACE 


3 INITIALIZATION ENTRY POINT. 


; CALLED FOR FIRST TIME INITIALIZATION. 


INIT 
XRA A 
STA @RDRV 
RET 


READ A DISK SECTOR ROUTINE 


> 


EAD: LX1 


SHLD 


H, READ$MSG 
OPERAT ION$NAME 


;SET FOR DRIVE ZERO 
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CALL BNKO ;SWITCH TO BANK 0 

CALL PMOVE ;SET UP COMMAND BLOCK 

MVI A,DC$RDS ;READ SECTOR COMMAND 
CALL DSKSEX ;PERFORM OPERATION 
JNZ DSK$ER ;ERROR EXI1 

LHLD @DMA ;LOAD USER BUF ADDRESS 
XCHG ;MOVE HL TO DE 

LDA DNS ;GET DENSITY FLAG 
ORA A 

CNZ SETDD s;NOT 0 MST BE DOUBLE 
LHLD SEC$SZ ;LOAD SECTOR SIZE 
MOV B,H 

MOV C,L ;MOVE COUNT TO B 

LHLD DD$BUF ;LOAD BUFFER 

CALL BLOCK ;BLOCK MOVE ROUTINE 
JMP DSK$OK ;NORMAL RETURN 


DISK READ/WRITE EXITS 


3 
5 
5 
U 
DSK$OK: CALL BNK1 ;SWITCH DD TO BANK 1 


XRA A ;CLEAR A FOR GOOD END 
RET 


} 


7 
;MOVE TRANSFER PARAMETERS TO DCM BLOCK 


PMOVE: LDA @RDRV ;GET DRIVE NUMBER 
STA DISK ;PUT IN COMMAND BLOC 
LHLD @TRK 
MOV A,L ;GET LOW 8 BITS 
STA TRACK 
LHLD @SECT 
MOV A,L 
STA SECTOR 
RET 


j 
3 DOUBLE D EXECUTION SUBROUTINE 


; 

3{ COMMAND BLOCK TO DOUBLE D AND EXEC } 

DSKSEX: STA BTS$CMD ;STORE DCM COMMAND 
LXI B,7 s;NMBR BYTE TO MOVE 


LXI D,DD$CBT ;COMMAND BYTE OFFSET 
LX1 H,BT$CMD ;BIOS CMND BLOCK 
CALL BLOCK 7PERFORM BLOCK MOVE 
MVI A,DC$INT ;LOAD DD INTERRUPT 
OUT D$PORT ; ISSUE DD INTERRUPT 


3( WAIT FOR DOUBLE D HALT )* 


MVI B,01H ;HALT MASK IN B REGISTER 
DSK$WT: IN D$PORT ;READ DD STATUS 

ANA B ;TEST HALT FLAG 

JNZ DSK$SWT ;TEST UNTIL HALTED 


;3( GET DOUBLE D STATUS ) 


CALL BNKO ;SWITCH DD ON TO BANK 0 
LDAX D ;GET STATUS BYTE 

MOV M,A ;STORE IN CMD BLK 

STA ERFLAG 

ANA A ;TEST FOR ERRORS 

RET ;RETURN TO CALLER 


3 
;TURN DD TO BANK 0 


BNKO MVI1 A ,DC$MBO ;BANK O NUMBER 
OUT D$PORT ;SEND 17 
RE1 


; 
;TURN DD TO BANK 1 


BNK41 MVI A,DC$MB1 ;BANK 1 VALUE 
OUT D$PORT 
RET 


i 
; SUPPRESS ERROR MESSAGE IF BDOS 1S RETURNING ERRORS TO 
; APPLICATION... 


DSKSER: CALL BNK1 ;SWITCH DD TO BANK 1 
LHLD OPERAT ION$NAME 
CALL PMSG ; LAST FUNCTION 


THEN, MESSAGES FOR ALL INDICATED ERROR BITS 


i 
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F77L LCS-FORTRAN 
FOR IBM/PC CHALLENGES 
SOFTWARE GOLIATHS 


ee LE 


>) 


When you have the superior product you 
can take on (and beat!) the big guys. 


Up until now FORTRAN programmers 
have had to get by with ponderous and 
incomplete Language Systems that never 
fully meet their needs or expectations. 
With F77L Lahey Computer Systems 
resolves this situation. F77L is a com- 
plete ANSI 77 Standard FORTRAN Lan- 
guage System with fast compile speed 
and productivity-enhancing diagnostics. 

If you need a FORTRAN Language 
System, don’t go to a Goliath who just 
happens to carry a FORTRAN product: 
call LCS, the company with the superior 
product. 

Here are a few of the many reasons to 
buy F77L: 

e Full FORTRAN 77 Language with popular 
extensions. 


e Fast, compiles 100s of statements/minute 
(PC/XT). 

e Numerous, specific English language 
diagnostics displayed during compilation. 

e Command Line compiler options. 


e Execution error traceback: program unit & line 
number. 


e Optional protection for constants, bonds, 
interfaces. 


e Standard or Free Format source files. 

e Lattice C compatibility. 

e Optimized code or high-speed execution. 

e Easy to use manual includes appendices on 
interfaces to Lattice C and Assembly language. 


If you are tired of betting on the software 
Goliaths, and losing, callLCS the FORTRAN 
SPECIALIST—ask for David. 

$477 tor complete package. 
Requires: 256K/8087 
FORTRAN IS OUR FORTE 


Lahey Computer Systems, Inc. 
31244 Palos Verdes Drive West, 
Suite #243 


Rancho Palos Verdes, CA 90274 
213/541-1200 


Serving the FORTRAN Community since 1969. 


IBM is a trademark of IBM Corporation 
Lattice C is a trademark of Lattice, Inc. 


s 100 LDA BTSsTS ; GET STATUS BYTE FROM LAST ERROR 
= LXI1 


H,ERROR$TABLE  ; POINT AT TABLE OF MESSAGE ADDR 
BARE BOARDS — 
MOV E,M 
N 
8086/8087 CPU - plus | (Oe 
2764 or 27128, 8253, 8259 INX H ; GET NEXT MESSAGE ADDRESS 
- ADD A 
8088 Auxiliary Processor PUSH PSW ; SHIFT LEFT AND PUSH RESIDUAL BITS WITH 
1/0 mapped, 4K EPROM, STATUS — 
4K RAM, prototype area CC PMSG 
XCHG ; PRINT MESSAGE, SAVING TABLE POINTER 
$45.00 POP PSW 
Each JNZ ERRM1  ; IF ANY MORE BITS LEFT, CONTINUE 
. LXI H, ERROR$MSG 
Call or write for brochure. CALL PMSG ; PRINT “<BEL>, RETRY (Y/N) 2." 
Terms: Check or money order only. CA CALL USCONINSECHO ; GET OPERATOR RESPONSE 
residents add sales tax. Prices include CPI ei : . . 7 
UPS shipping. Jz MORESRETRIES ; YES, THEN RETRY 10 MORE TIMES 
HARD$ERROR: ; OTHERWISE, 
Applied Innovations JMP MONIT 
3000 Scott Blvd. Suite 106 y 
Santa Clara, CA 95054 renenet nrecee 
(408) 748-1875 ANA A ;WAS 1T A LOGIN 
JZ LOGIN 
JMP READ 
USCONINSECHO: =; GET CONSOLE INPUT, ECHO IT, AND SHIFT TO UPPER 


BOBCAT 3 CASE 


DISK CATALOG CALL. ?2CONIN 


PUSH PSW 
The most versatile and powerful MOV Cc ‘ A 
catalog program available CALL 2CONO 
* creates, adds, updates, and deletes a filename catalog POP PSW 
* seven report formats CPI A 
+ hard disks, multiple drives, and user numbers RC 
* indi | file tith Reo pe = + “j 
. earicaid nuerohee toc Werlanie’ aiid Wotiiaa sul A’-'A +.MAKE UPPER CASE 
+ CP MorPC MS DOS RET 
8"CP M SSSDorPopularCP/MorPC’'MS DOS 5%" 
U.S. residents -$49.95U.S.$ 
nadian residen 5 Ci Int residents a 5) 
mun wae ; ERROR MESSAGE COMPONENTS 
plus $3.00 P&H 
LOG$MSG: DB * LOG-’ ,0 
ames NAME. NUMBER READ$MSG DB ’ READ-’ ,0 
OP aie Sas seme OPERATIONSNAME DW READSMSG 
Bank drafts: certified checks; money orders; company checks 
; TABLE OF POINTERS TO ERROR MESSAGE STRINGS 
R&L MicroServices Inc. ; FIRST ENTRY IS FOR BIT 7 OF 1797 STATUS BYTE 
Box 15955, Station F R 6 L 
Ottawa, Ont ERROR$ TABLE DW B7$MSG 
K2C 3S8 (613) 225-7904 THE HOME OF THE BOBCAT DW B6é$MSG 
OW BS$MSG 
Dw B4$MSG 
Dw B3$MSG 
DW BesMSG 
DW B1$MSG 
DW BO$MSG 
/ 
| Ise rs B7$MSG DB ' NOT READY,’ ,0 
Bé$MSG DB ‘ PROTECT,’ ,0 
BS$MSG DB ' FAULT,’ ,0 
B4 $MSG DB ’ RECORD NOT FOUND,’ ,0 
rou Dp B3SMSG DB * CRC,’ ,0 
B2$MSG DB ‘ LOST DATA,’ ,0 
B1$MSG DB ’ DREQ,’ ,0 
Over 40 volumes of public BO $MSG DB * BUSY,’ ,0 
in software including: 
domaine 9 ERRORSMSG DB RETRY (Y/N) 2 7,0 
© compilers ; 
editors ; ID LABEL DEFINITIONS 
text formatters ; 
communications JADEID: DB ' JADE’ 31D LABEL 
packages ID$SZE EQU  $-JADEID ;LABEL SIZE 


® many UNIX-like tools 


; 
5 DOUBLE D - DCM COMMAND BLOCK BUFFER 


Write or call for more details ; 
BT$CMD: DB 


‘i 0 ;DCM COMMAND 
The C Users’ Group DISK: DB 0 ;DRIVE NUMBER 
415 E. Euclid ¢ gies TRACK: DB 0 ; TRACK NUMBER 

wag re el SECTOR: DB 0 ;SECTOR NUMBER 
BT$SP0: DB 0 ;SPARE BYTE 0 
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BT$CHR: DB 
BI$MOD: DB 
BT$STS: DB 
Fl 
; BIOS 
DTS$PTR: DW 
DD$BUF: DW 
SEC$SZ: DW 
LOG$RQ: DB 
DNS: DB 
ERFLAG: DS 
; DISK 
@ADRV DS 
@RDRV DS 
@TRK DS 
@SECT DS 
@DMA DS 
FDSDO Dw 
DB 
DB 
Dw 
DW 
Dw 
DW 
Dw 
DW 
DB 
i 
CVEC: DS 
AVEC: DS 
DIRBCB: DB 
DB 
DB 
DB 
DW 
Dw 
DW 
DB 
Dw 
OTABCB: DB 
DB 
DB 
DB 
Dw 
DW 
DW 
DB 
DW 
DPBSD DPB 
DPBSDO DPB 
TRANS SKEW 
TRANS1 DB 
BUFO: EQU 
BUF 1: EQU 
END 


0 
0 
0 


VARIABLE STORAGE 


FDSDO 
DD$SBUF 
80H 

0 

1 

1 


TRANS 


SoD NNNEHR 


DPBSD 
CVEC 
AVEC 
DIRBCB 
DTABCB 
OFFFFH 
0 


32 
40 


mn 


om 
a 
o 


comoocooooeo 
< 
mT 
o 


Tk 


on 
~ 
oO 


cooWoococoos 
Cc 
nN 
Ll 


1024,9,77,2048,128,2 
128 ,26,77,1024,64,2 


26,6,1 


1,2,3,4,5,6,7,8,9 


$ 
$+1024 


;SYSTEM TEST PROGRAM 


j;LAST EDITED 08/10/83 16:13:46 


SECSZ 
i 


EQU 


80H 


2*SECSZ 
‘SECTOR 
3*SECSZ 
*SECTOR 
4*SECSZ 
“SECTOR 
5*SECSZ 
* SECTOR 
6*SECSZ 
SECTOR 
7*SECSZ 
“SECTOR 


;LIST CHARACTER 
;MODE CONTROLS 
;COMMAND STATUS 


;DPH POINTER 

;SINGLE DENSITY BUFFER 
;STANADRD SECTOR SIZE 
;LOG ON REQUEST REG 


;DENSITY 1 = DD; 0 = SD 


COMMUNICATION DATA ITEMS 


CURRENTLY SELECTED DISK DRIVE 
CONTROLLER RELATIVE DISK DRIVE 
CURRENT TRACK NUMBER 

CURRENT SECTOR NUMBER 

CURRENT DMA ADDRESS 


,0,0,0,0,0,0,0,0 


;MEDIA FLAG 


;CHECKSUM VECTOR 

jALLOCATION VECTOR 

;DIRECTORY BUFFER CONTROL BLK 
;DATA BCB 

;NO HASH 

;HASH BANK 


;DRIVE NUMBER 
j;RECORD # 
;WFLG 


;SECTOR 

; BUFFERADDR 
; BANK 

;LINK 


;DRIVE NUMBER 

;RECORD # 

;WFLG 

30 

3 TRACK 

;SECTOR 

; BUFFERADDR 

; BANK 

;LINK 

;DOUBLE DENSITY 
;SINGLE DENSITY 


;SINGLE DENSITY 
;DOUBLE DENSITY 


LISTING #2 

ORG 8xSECSZ 

DB ‘SECTOR 7 TRACK 0’ 

ORG YRSECSZ 

DB “SECTOR 8 TRACK 0’ 

ORG 10*SECSZ 

DB "SECTOR 9 TRACK 0’ 
TRACK 0’ ORG 11*SECSZ 

DB “SECTOR 10 TRACK 0’ 
TRACK 0’ ORG 12*SECSZ 

DB *SECTOR 11 TRACK 0’ 
TRACK 0’ ORG 13*SECSZ 

DB "SECTOR 12 TRACK 0’ 
TRACK 0° ORG 14*SECSZ 

OB ‘SECTOR 13 TRACK 0’ 
TRACK 0’ ORG 15*SECSZ 

OB "SECTOR 14 TRACK 0’ 
TRACK 0’ ORG 16*SECSZ 
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Of course, 
POWER! saves 
your Bad Disk. 


NOW! WINDOWS FOR IBM! 


It also does 
54 other things to 
keep your disk in line. 


EVERYTHING YOU ALWAYS WANTED 
TO DO, BUT WERE AFRAID TO TRY 


Unlike some utility programs that are a headache 
touse, POWER! is engineered to spoil you with 55 
features, simple and uniform commands, and utter 
simplicity of use. POWER! automatically alpha- 
betizes and numbers your files. You select by the 
number and never type file names again. Need to 
[copy], [RENAME], [ERASE], or [RUN] programs? Just 
type in their menu number! POWER! also locks 
out your disk’s bad sectors [TEST] without destroy- 
ing files—a critical difference from other utilities 
that search and destroy, without informing you 
what they've done, leaving you to wonder why 
your programs won't run. (And POWER! still has 
50 commands to go!) 


POWER! ONE PROGRAM DOES IT ALL! 


You may own a few utility programs for your com- 
puter housekeeping, each with its own commands 
to memorize. POWER! has all the programs rolled 
into one 16K integrated package, so you do things 
you've never tried before—every day. Save sen- 
sitive data from prying eyes with [PASS] word pro- 
tect, move a block of memory [MOVE], look for data 
[SEARCH] or compare files [CHECK]. POWER! also 
makes easy work of patching, [DISPLAY/SUBSTITUTE], 
customizing software [LOAD/SAVE]. Among the 
other commands are [SIZE], [Stat] [LOG], [DUMP], 
[type], Uume), [FILL], [Set], and the CP/M version 
lets you restore erased files—even when you don’t 
remember the filename —at a flick of the POWER! 
[RECLAIM] command. (Still 31 commands to go!) 


POWER! NOW FOR IBM’s PC-DOS 
AS WELL AS CP/M 


We first developed POWER! for CP/M two years 
ago, and a stack of testimonials from FORD to 
XEROX testify to its excellence. For IBM-PC™ 
users, special features like managing sub-direc- 
tories, [CHANGE], and a separate creation of up to 
8 simultaneous, on-screen [WINDOWS] have been 
added. 


MONEY-BACK GUARANTEE AND 
A 10 DAY TRIAL 


POWER! has the Seal of Approval from the Pro- 
fessional Software Programmers Association, and 
you, too, must be happy with POWER! —or your 


money back! For only $169 you can now really be in 
control of your computer. Call Computing! at (415) 
CP/M machine. Please specify disk format. 

The company that earns its exclamation point. it 
2519 Greenwich, San Francisco, CA 94123 

TO ORDER CALL 800 TOLLFREE 
In CA: 800-428-7824 Extension 96C 
IBM and IBM-PC are registered trademarks of 


567-1634, or your local dealer. For IBM-PC or any 
COMPUTING! 
e@ 
800-428-7825 Extension 96C 
International Business Machines Corporation. 
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"SECTOR 15 
17*SECSZ 
"SECTOR 16 
18*SECSZ 
"SECTOR 17 
19*SECSZ 
“SECTOR 18 
20*SECSZ 
“SECTOR 19 
21*SECSZ 
“SECTOR 20 
22*SECSZ 
"SECTOR 21 
23%*SECSZ 
"SECTOR 22 
24*SECSZ 
"SECTOR 23 
25xSECSZ 
"SECTOR 24 
26*SECSZ 
*SECTOR 25 
27*SECSZ 
"SECTOR 26 
28*SECSZ 


“SECTOR 1 TRACK 


29*SECSZ 


"SECTOR 2 TRACK 


30*SECSZ 


"SECTOR 3 TRACK 


31*SECSZ 


“SECTOR 4 TRACK 


32*SECSZ 


*SECTOR S TRACK 


33*SECSZ 


"SECTOR 6 TRACK 


34*SECSZ 


*SECTOR 7 TRACK 


35*SECSZ 


*SECTOR 8 TRACK 


36*SECSZ 


"SECTOR 9 TRACK 


37*SECSZ 


TRACK 
TRACK 
TRACK 
TRACK 


TRACK 
TRACK 
TRACK 
TRACK 
TRACK 
TRACK 
TRACK 


TRACK 


0’ 


0’ 


0’ 


0’ 


0’ 


0’ 
0’ 


4? 
1’ 
4? 


4° 


"SECTOR 10 TRACK 1’ 


38*%SECSZ 
"SECTOR 11 
39% SECSZ 
‘SECTOR 12 
4OXSECSZ 
‘SECTOR 13 
41*SECSZ 
“SECTOR 14 
42*SECSZ 
‘SECTOR 15 
43*SECSZ 
"SECTOR 16 
44% SECSZ 
"SECTOR 17 
45*SECSZ 
‘SECTOR 18 
46% SECSZ 
‘SECTOR 19 
47*SECSZ 
"SECTOR 20 
48%SECSZ 
"SECTOR 21 
4+9%XSECSZ 
“SECTOR 22 
50*SECSZ 
“SECTOR 23 
51*SECSZ 
‘SECTOR 24 
52xSECSZ 
*SECTOR 25 
53%*SECSZ 
“SECTOR 26 
54%SECSZ 
SECTOR 27 
55*SECSZ 
“SECTOR 28 
56*SECSZ 
"SECTOR 29 
57*SECSZ 
*SECTOR 30 
58*SECSZ 
"SECTOR 31 


TRACK 
TRACK 
TRACK 
TRACK 
TRACK 
TRACK 
TRACK 
TRACK 
TRACK 
TRACK 
TRACK 
TRACK 
TRACK 
TRACK 
TRACK 
TRACK 
TRACK 
TRACK 
TRACK 
TRACK 


TRACK 


59%*SECSZ ORG 76*SECSZ 

"SECTOR 32 TRACK 1’ DB "SECTOR 49 TRACK 1’ 
60*SECSZ ORG 77*SECSZ 

"SECTOR 33 TRACK 1’ DB ‘SECTOR 50 TRACK 1’ 
61*SECSZ ORG 78% SECSZ 

"SECTOR 34 TRACK 1’ DB "SECTOR 51 TRACK 1’ 
62*SECSZ ORG 7O#SECSZ 

‘SECTOR 35 TRACK 1’ DB ‘SECTOR 52 TRACK 1’ 
63%*SECSZ ORG 80*SECSZ 

"SECTOR 36 TRACK 1’ DB “SECTOR 53 TRACK 1’ 
64*SECSZ ORG 81xSECSZ 

"SECTOR 37 TRACK 1’ DB *SECTOR 54 TRACK 1’ 
65*SECSZ ORG 82xSECSZ 

‘SECTOR 38 TRACK 1’ DB ‘SECTOR 55 TRACK 1’ 
66%*SECSZ ORG 83%*SECSZ 

‘SECTOR 39 TRACK 1’ DB “SECTOR 56 TRACK 1’ 
67% SECSZ ORG 84*SECSZ 

"SECTOR 40 TRACK 1’ DB "SECTOR S7 TRACK 1’ 
68*SECSZ ORG 85xSECSZ 

‘SECTOR 41 TRACK 1’ DB “SECTOR 58 TRACK 1’ 
69XSECSZ ORG 86*SECSZ 

*SECTOR 42 TRACK 1’ DB “SECTOR 59 TRACK 1’ 
70*SECSZ ORG 87*SECSZ 

"SECTOR 43 TRACK 1’ DB “SECTOR 60 TRACK 1’ 
71*SECSZ ORG 88xSECSZ 

‘SECTOR 44 TRACK 1’ DB ‘SECTOR 61 TRACK 1’ 
72*SECSZ ORG 89#SECSZ 

‘SECTOR 45 TRACK 1’ DB “SECTOR 62 TRACK 1’ 
73%SECSZ ORG YOXSECSZ 

"SECTOR 46 TRACK 1’ DB SECTOR 63 TRACK 1’ 
74*SECSZ ORG 91xSECSZ 

"SECTOR 47 TRACK 1’ DB “SECTOR 64 TRACK 1’ 
7S*SECSZ 

"SECTOR 48 TRACK 1’ END 


O50 80 


FULL SCREEN SYMBOLIC DEBUGGER 


“THE SINGLE BEST DEBUGGER 
FOR CP/M-80. A TRULY 
AMAZING PRODUCT.” 


LEOR ZOLMAN 
AUTHOR OF BDS C 


Complete upward compatibility with DDT 
Simultaneous instruction, register, stack & memory displays 
Software |In-Circuit-Emulator provides write protected memory, 


execute only code and stack protection. 

Full Z80 support with Intel or Zilog Mnemonics 
Thirty day money back guarantee 

On-line help & 50 page user manual 


ONLY PIL De 
_SOFT ADVANCES — 


P.O. BOX 49473 AUSTIN, TEXAS 78765 (512) 478-4763 


= 
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NOW, THE RIGHT CHOICE 
IS EASIER THAN EVER. 


DATAF: 


THE TRUE MULTI-USER APPLICATION DEVELOPMENT DATA BASE 


DATA ACCESS CORPORATION 
8525 SW 129 Terrace, Miami, FL 33156-6565 (305) 238-0012 
Telex 469021 DATA ACCESS Cl 
Compatible with MSDOS, PC-DOS, CP/M, CP/M-86, MP/M-86, TurboDOS, Novell Sharenet, PC-Net, Molecular N-Star, 
Micromation M/Net, Action DPC/OS, OMNINET, IBM PC w/Corvus and OSM Muse. 
MSDOS is a trademark of Microsoft. CP/M and MP/M are trademarks of Digital Research. DataFlex and FlexKeys are trademarks of Data Access Corp. 
dBASE II is a trademark of Ashton-Tate 


Extended 


Single-Density 


ith an 8” 
single- 
density sys- 
tem incor- 
porating the 
Tarbell SD 
controller 
at home, I 
have been more than interested in the 
techniques that Bob Lurie has been dis- 
cussing lately in Microsystems (June and 
October 1983). Essentially, here was a 
method of doubling my CBIOS size and 
increasing the data storage per disk by 
50%, and it required absolutely no 
hardware modifications. 

Before starting out, I decided on 
two requirements which my implemen- 
tation had to adhere to. These were: 

1) Track 0, sector 1 must be 
loadable with my current ROM 
loader. This means a standard 
128-byte sector. 

2) The CBIOS must provide com- 
patibility with the standard data 
track format so that programs 
can be bought, sold, and ex- 
changed without bizarre data 
transfer techniques. 

An important aspect to point out at 
the beginning is that system track usage 
(0,1) is almost independent of data track 
usage (2-76). No matter what anybody 
does to the system tracks, if the data 
tracks are in the standard format (26 
sectors of 128 bytes each), then we can 
all exchange our data and programs. On 
the other hand, it is necessary to use a 
nonstandard format on the system 
tracks if we are going to expand the 
CBIOS to include the additional code 
for the two-sector data track format. 

Thus, the entire procedure is parti- 
tioned into two quite separate and dis- 
tinct parts. First, a method of format- 
ting the system tracks and loading a 
larger CBIOS must be developed. This 
includes modifying the SYSGEN pro- 
gram. Second, the question of format- 
ting data tracks and modifying the 
CBIOS must be addressed. The CBIOS 
modification gets its starting point from 
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Disk 
Storage 


the program DEBLOCK.ASM, which 
is supplied by Digital Research with 
CP/M 2.2. 


Space for the CBIOS 

The reformatting of the system 
tracks is worth doing, even if the two- 
sector method is not used for the data 
tracks. I have always been disappointed 
in the small amount of space available 
for implementation of the CBIOS. Page 
13 of the Alteration Guide shows that 
only 7 sectors are available. After all of 
the necesary tables and subroutines are 
written, no space is left for simple things 
like including error messages or imple- 
mentation of the IOBYTE. 

Reformatting the system tracks 
from 26 to 29 sectors per track gives an 
extra 6 sectors just for the CBIOS. These 
extra sectors can be used for all the 
things you always wanted to do, but 
never had the space. 

Three other techniques also come 
to mind for increasing the CBIOS size. 
The first involves using the 
AUTOLOAD feature of the CCP to 
load the last part of the CBIOS from a 
disk file. This was discussed by Andrew 
Bender in the March 1983 issue of Mi- 
crosystems. Although this technique 
certainly works, it is at the expense of at 
least 1K of disk data space (the lowest 
allocation group size). It is a high price 
for us, the SSSD users, to pay. 

A second technique involves using 
the unallocated sectors on track 76. 
CP/M data starts on track 2, following 
the directory. Since the standard alloca- 
tion is in groups of 1K for a standard 
8”SSSD disk, a short calculation will 
show that there are a few extra sectors at 
the end of the final track. In fact, Bob 
Lurie has listed them in the March 1983 
issue of Microsystems as sectors 18, 24, 
4, 10, 16 and 22 for a skew of six. 

One drawback for usage of these 
tracks is the requirement for a really 
special SYSGEN. In addition, there is 
not enough room in a one-sector cold 
loader to individually address these sec- 
tors. Thus the cold boot routine of the 


by Willis E. Howard, ll 


CBIOS may have to read them in. I 
would consider writing code to boot 
from these sectors only as a last resort. 

The third method would involve 
formatting track 1 as two sectors of 
2,432 bytes each. With 29 sectors on 
track 0, this would give an effective 66 
logical sectors for CP/M or 15 extra 
sectors for the CBIOS. Although I 
haven’t tried this method, it should in- 
volve minimal changes to a cold loader 
and would probably fit into one logical 
sector. For this method, a special 
SYSGEN program will also be needed. 

The following steps illustrate how I 
have implemented the 29-sector/system 
track and 2-sector/data track tech- 
nique. The steps allow testing to occur 
at each critical stage. This should mini- 
mize the number of system crashes and 
make debugging much easier. 


Step 1: The FORMAT program 

In order to use any of these tech- 
niques, the first step is to write a format 
program. To do this, the FD1771 data 
sheet from Western Digital will prove 
invaluable. For Tarbell SD users, it is 
provided in the manual, starting on 
page 7-2-1. 

The Western Digital data sheet has 
a section on the proper method of for- 
matting a standard 8” SSSD disk with 
26 sectors/track. I wanted a program 
that would format any track on my disk 
with the IBM 26- or 29-sector formats 
or the non-IBM 2-sector format. 

On Table 1, there is a summary of 
the data sent for 2-, 26-, and 29- 
sector/track formats. For the 2- and 29- 
sector formatting, the entire Index Ad- 
dress Mark and preceeding gap are 
eliminated. In addition, the gap between 
each of the 29 sectors is decreased to the 
absolute minimum as stated in the 1771 
data sheet. The gap for the 2- 
sector/track format was increased to 
103. Bob Lurie has noted that this large 
gap is necessary to compensate for pos- 
sible drive speed variations that could 
overwrite the sector ID address marks. 

After setting up the parameters giv- 
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en in Table 1, a few test programs 
showed that the data for the 2,432-byte 
sectors could not be calculated and writ- 
ten at the same time for a 2 MHz Z80 
system. Thus my format program first 
filled memory with all the data for one 
track and then wrote the data to disk. 

After writing each track, four tests 

check for possible errors: 

1) Verify that all data has been sent 
to the disk by checking the mem- 
ory image pointer. 

2) Read the disk status register to 
test fora WRITE TRACK 
error. 

3) After the first track is written in 
any formatting operation, issue a 
READ TRACK command and 
count the number of bytes on the 
track. If not 5208 +/- 50, the 
disk speed is assumed to be out 
of specification. 

4) Verify each sector on the track 
by issuing standard READ com- 
mands and checking for read 
errors. 


Step 2: Test the unmodified 
system 

After you have a FORMAT pro- 
gram, it is a good idea to test the ability 
of your system to read and write the 29- 
sector tracks before anything is modi- 
fied. To do this, simply format the sys- 
tem tracks of a blank disk (play it safe) 
with 29 sectors each. Then use your reg- 
ular SYSGEN procedure to write 
CP/M to the newly formatted disk. The 
last three sectors of each track will not 
be written, but the question is whether 
or not the spacing is too narrow for your 
system to handle. 

Now take the new disk and try to 
cold boot from it. After you can do this 
successfully, you are well on your way 
to using a large CBIOS on your system. 


Step 3: New CP/M size 

With expanded data track storage, 
there is one unavoidable drawback: the 
larger sectors must be buffered in the 


CBIOS. Although this buffer does not 
take up real disk space, it will use real 
memory space. Consequently, the TPA 
size of your system must be decreased. 

In addition, if your are running a 
standard 64K system, the boot program 
for 29 sectors/track can wrap around to 
address zero and overwrite itself. This 
means that the system size must be de- 
creased before the cold loader is 
modified. 

Use MOVCPM to create a CP/M 
system which is 3 to 4K smaller than 
your current system. 2.4K of that will 
go to buffering the 2,432-byte sectors, 
and the rest is needed for the additional 
code in the CBIOS. It is possible that 
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your CBIOS will not require such a 
large reduction in TPA size, especially if 
you have optimized your code. For your 
initial implementation, however, give 
yourself plenty of working space. 

Be sure that you have modified 
your version of MOVCPM =§as 
documented by Digital Research and 
discussed by Bob Lurie in Microsystems 
(May, 1983). This patch eliminates a 
CP/M directory write bug and affects 
the large sector blocking. You may not 
have needed to fix it before, but you will 
now. 
The DDT patch consists of modify- 
ing MOVCPM with the following code: 


ORG 1CD2H 
NOP 

NOP 

LX! H,0 
END 


After MOVCPM.COM is loaded 
by DDT, the above code can be added 
either with the DDT assemble com- 
mand “A” or by reading in the assem- 
bled HEX file of the code. While saving, 
you may want to rename the modified 
MOVCPM so that it can be distin- 
guished from the unmodified version. 

The new MOVCPM should be 
used to generate the smaller version of 
CPMxx.COM. After saving the new 
CPM file, edit and assemble your 
CBIOS and the Cold Loader to reflect 
the new system size. At this point, you 
should have files CPMxx.COM, 
CBIOSxx.HEX and CLOADxx.HEX, 
where xx refers to the smaller CP/M 
size. 

Follow the normal second-level 
system generation procedures to place 
the new system machine code on the 
system tracks of a disk. Proceed to the 
next step only after you can successfully 
boot with the new system. From now 
on, use only the smaller size CP/M 
system. 


Step 4: Cold loader for 29 
sectors/track 

For those using a modified version 
of the Tarbell Coldstart Loader, there 
are two definitions which must be 


changed. The lines 


SPT EQU 26 
;Number of sectors per track 
NSECTS EQU 51 


;Sectors of CP/M 


must be changed to the following: 


SPT EQU 29 
;Number of sectors per track 
NSECTS EQU SPT*2-1 


;Sectors of CP/M 


If you don’t use the Tarbell loader, 
the sector loading algorithm is quite 
simple: 

1) Start loading from Track 0, Sec- 

tor 2. 

2) Ifa total of NSECTS sectors has 
been loaded, jump to the CBIOS 
entry point. 

3) If sector SPT has been loaded 
from the current track, step to 
the next track, load sector 1 and 
continue at (2). 

4) Load the next sector and contin- 
ue at (2). 

These modifications to the cold loader 
do not affect its size. Give the new load- 
er a new name_ such as 
CLOAD29.ASM. Assemble the new 
loader to get the file CLOAD29.HEX. 
It will not be tested until the new 
SYSGEN program is generated. 


Step 5: A modified SYSGEN program 

A section of the SYSGEN program 
is shown in Listing 1, with the modifica- 
tions already made for 29 sectors/ 
system track. The values at MXSEC 
and SECLST must be patched into your 
version of SYSGEN. 

I have found that by using the sec- 
tor ordering as given in SECLST, the 
SYSGEN will proceed somewhat more 
rapidly on my system. This ordering is 
different from that of Bob Lurie and 
makes the patch a little longer. It may 
be easier to make a HEX patch than to 
use DDT to directly make the changes. 
Save the patched SYSGEN program 


under a new name, such as 
SYSGEN29.COM. 
Step 6: Test the modified system 


In Step 2, the initial test showed 
that narrow gap sectors (29/track) 
could be read and written on your sys- 
tem. In Step 3, a smaller system size 
CP/M was generated. Now the modifi- 
cations to the Cold Loader and 
SYSGEN programs can be tested. 

Following the standard second lev- 
el system generation procedure, load all 
modules into memory. With DDT, the 
following dialog results: 


A>DDT CPMxx .COM 
DDT VERS 2.2 
NEXT PC 
2300 0100 
- |CLOAD29. 
-R900 
NEXT PC 
2300 0000 
- |CBIOSxx. 
-R3580 
NEXT PC 
2300 0000 
2AC 

A> 


HEX 


HEX 


Then just reassemble the program in With CP/M now in memory, use the 


preparation for the SYSGEN. 


new version of SYSGEN29.COM to put 
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it on the system tracks of the 29 
sector/system track disk created in Step 
2. The dialog is as follows: 


LISTING #1 


The origin statement is given for reference, 
in case DDT is used to examine SYSGEN.COM. 


A>SYSGEN29 
SYSGEN29 V 2.0 
Source drive name (or return to ORG $128H 
skip) : ; 
Destination drive name (or 3 Total number of system tracks to read/write. 
return to reboot)A TRACKS: 
Destination on A, then type DB 2H 
return : 
Function complete 3 Total number of sectors per system track. 
Destination drive name (or 3 Standard value is 26. Now set for 29 to 
return to reboot) H get extended CBIOS. 
MXSEC: 
A> DB 1DH 


This is a list of the sectors, from 1 to MXSEC. 
The ordering may be set to the skew for your 
system. It is now set for two. There is no real 
conversion of logical to physical sectors. This 
table just gives the ORDER in which sectors are 
read and written. Unused table space zero filled. 


Take the disk and try to cold boot 
from it. If there are any problems, they 
can only be from the new Cold Loader, 
CLOAD29, or the new SYSGEN pro- 
gram, SYSGEN29. Go over your 


changes until this step works. EEoSEs _ 214 a ee eet 
. At this point, your system will boot DB 11H, 13H, 15H, 17H, 19H, 1BH, 1DH 
in CP/M with a CBIOS of up to 15 sec- DB 2H, 4H, SH, 8H, GAH, OCH, BEH, 19H 
tors, 6 more than the standard size. The DB 12H, 14H, 16H, 18H, 1AH, 1CH 
CBIOS can now be modified to access DB 9H, 8H, GH, OH, SH, GH, OH, OH, GH 
disks formatted with 2 sectors/data re ye ee arti a gh 
track or for any other application you DB eH, ex, OH. BH, BH. OH. BH.BH 
may have. 
Step 7: Modifying the CBIOS LISTING #2 
Since the CBIOS provides the in- 
terface between the disk controller and BLKSIZ EQU = 3Group size 
the BDOS, it is necessarily hardware de- a Iz aime 2432 3 Bytes/sector 
STSFT EQU 2 3 Sectors/track 
pendent. My system uses the Tarbell SD HSTBLK EQU HSTS1Z/128 3Blocks/sector 
controller and two Pertec FD500 8" CEMSFT EQU HSTBLK&HSTSPT  3CPM blocks/track 
SSSD drives. For comparison with the 
original Tarbell CBIOS, this requires LISTING #3 
DUAL SET TRUE RWOPER: 
XRA & 3Zero to accum 
in the definitions section. Keep the fact STA ERFLAG 3No errors (yet) 
in mind that hardware differences may LDA SEKSEC sCompute host sector 
require a modification of some of the de- CPI 19 itt Sen COE 
tails discussed below. pia Pus SSEcker quaber 3 
A good way to start the CBIOS INR A sor 2 
modifications is to first merge the pro- RW4: 
gram DEBLOCK.ASM into your STA SEKHST sHost sector to seek 
CBIOS. Although some changes must 
be made for the method described here, 
the DEBLOCK program does describe LISTING #4 
some necessary steps. Be sure to use the MATCH: 
copy supplied on your CP/M disk. . LDA SEKSEC 3Mask buffer number 
There are a few differences from the ver- CPI 19 3MOD 19 NEW CODE 
sion listed in the Alteration Guide. It is aM MATS 
especially important to rewrite the SBI 19 
SELDSK, SETTRK and SETSEC rou- a" soak a 
tines so that they only record the desired MvI rae anny ES) MOSSE PLY 
information and perform no actual se- REPT 7 
lection. That must be delayed until the DAD H 
READ and WRITE routines. ENDM 
The deblocking algorithm de- 
scribed in DEBLOCK.ASM is not one 
that can be used by us. Thus the LISTING #5 
SMASK macro can be eliminated and MvI A, 9FFH 3Auto disk type select on boot 
the CP/M host disk constants replaced STA BSET 3;Deselect B: 
with the display shown in Listing 2. a a aoa} ect ae ~~ is wid 
3 be sector en code 
The constants SECMSK and SECSHF aTA ley : eaahgey g 


will not be used. 
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You should also completely re- 
move all variables that begin with 
“una,” as well as all references to these 
variables. This is because prereads are 
always required, whether or not an un- 
allocated group is being written to. 

The problem is that the group size 
(2,048 bytes) is not a multiple of the 
physical disk sector size (2,432 bytes). 
This causes physical disk sectors to con- 
tain data belonging to two (sometimes 
three) different allocation groups. Even 
if data will be written to an unallocated 
group, the entire physical sector must 
be pre-read in case the other groups in 
the sector contain allocated data. 

In the body of DEBLOCK.ASM, it 
is necessary to change the sections 
which do the logical/physical sector 
conversions. The code which converts 
to a physical sector number is shown in 
Listing 3. 

The code which maps logical sector 
numbers onto the current physical sec- 
tor buffer is shown in Listing 4. 

In forming the disk tables and writ- 
ing the disk routines, the strategy will be 
the following: 

1) If a standard format disk is in a 
drive, read and write with no 
blocking. 

2) If an extended storage format 
disk is in a drive, read and write 
with blocking. 

3) Iftracks 0 or 1 are accessed, read 
and write with no blocking, even 
if the disk has an extended stor- 
age format. 

The host disk constants and blocking in- 
formation will apply only to the extend- 
ed storage format. 

Next, let us consider the disk table 
definitions. These are shown, together 
with disk parameter storage, on Table 2. 
At DPEO and DPE1 are the disk param- 
eter blocks for disks A and B, using the 
standard format as described by disk de- 
scriptor table DPBO. At DPE2 and 
DPE3 are the parameter blocks for 
disks A and B, using the 2432 
bytes/sector and 2 sectors/track 
format. 

Although four disk parameter 


blocks are defined, only two are in use at 
any time, depending on which kind of 
disk is in which drive. This selection 
process occurs at cold and warm boot 
for drive A and at the first disk select for 
drive B, following each cold and warm 
boot. 

The selection code is initiated in the 
SETUP routine, the common exit code 
of the cold and warm boot routines. It 
uses the code shown in Listing 5. 

BSET is first set to -1 in order to in- 
dicate that drive B has been deselected; 
that is, the system does not know what 
kind of disk is in drive B. The subrou- 
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SECTRN: 


2 Sector 
# Value 
a — 

a — 

o -- 
11 FF 
6 ga 

1 FE 

1 T# 
1 oa 

1 S# 


= 


Translate sector 


H.B 


LISTING #6 


s;Logical sector in HL 


sIf zero XLT, no translation 


;Otherwise, 


translate 


3;Single byte only 


Track Formatting Information 


49 


Ba 


FC 


FF 


pa) 


FE 


T# 


Ss# 


TABLE I 
29 Sectar 
*# Value 
a — 
7] —s 
@ ss 
ay FF 
6 oo 
1 FE 
1 TH 
1 8D 
i s# 


Meaning 


# denotes the number 
of times (in decimal) 
that the Value (in 
hex) must be 
written. 


46 bytes follow the 
physical index and 
precede the index 
address mark. 


The last 6 MUST be 6. 


Writes the Index 
Address Mark. This is 
used only for the 
standard 26 sector 
format. 


Post index gap- The 
gap in front of any 
data field must be at 
least 17 bytes long, 
but 32 is nominal 
most of the time. Use 
smallest gap for the 
non-standard sectors. 


Repeat the following 
for the sector count 
per track. 


The last 6 bytes in 
front of a data field 
MUST be @. 


Address Mark. This 
indicates the start 
of an ID record which 
contains track and 
sector addresses. 


This byte is the 


track number (@ to 
4C for up to 77 
tracks). 


A single zero is 
required here. 


This byte is the 
sector number which 
begins at 1 and ends 
at the sector count 
per track. 


33 


tine SETLNG performs the following 
functions: 

1) Select the disk designated by A 
(drive A if 0). 

2) Seek the third track (track 2). 

3) Issue a read address command 
(0C4H) to the 1771 and get the 
sector length byte. 

4) Return a 0 for a zero sector 

length, which indicates a stan- 

dard format. Return a 2 for a 

nonzero sector length, indicat- 

ing a 2432-byte/sector format. 
The result is stored in DISKA. In case 
of a read error, there should be 10 retries 
before reporting an error. 

The first time (after a cold or warm 
boot) that a call is made to SELDSK for 
the selection of drive B. SETLNG will 
be called and the result plus one will be 
stored in DISKB. An initial call is as- 
sumed whenever BSET is -1. The 
SELDSK routine must also be modified 
to use DISKA or DISKB as the value of 
SEKDSK and in the computation of the 
disk parameter block address. 

Using this procedure, a disk with 
either format can be placed in either 
drive. If disk formats are changed, the 
control-C key should be immediately 
pressed while in the CP/M command 
mode. This will force the system to test 
the format type of the disks before read- 
ing and writing. Never change a disk if it 
contains open files. 

Before moving on to the READ/ 
WRITE routines, the sector translation 
routine must be considered. In this im- 
plementation, there are two types of for- 
mats: the standard format, which must 
undergo a sector translation with a skew 
of 6, and the extended storage format, 
which needs no sector translation. The 
code shown in Listing 6 can handle both 
formats. 

The CBIOS READ/WRITE entry 
points must perform the following: 

1) Clear the extended sector 

read/write flag. 

2) If track 0 or 1 selected, do a stan- 
dard read/write. 

3) If an extended sector disk is se- 
lected, do read/write with block- 
ing as described in 
DEBLOCK.ASM. If this re- 
quires a physical read/write, set 
the extended read/write flag and 
call the appropriate routine. 

4) Otherwise, do a standard 
read/write, as in the unmodi- 
fied CBIOS. 

Where possible, make only a few 
changes at a time. Then do a SYSGEN 
and test the changes. This way, errors 
can be easily found and corrected. 


User beware 
Of course, there are dangers. When 
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1 98 
i F7 
11 al) 
6 OO 
1 FB 
2432 ES 
1 F7 
193 FF 


Ow a 
5 
m 
N 
“ 


11 tt) 


128 ES 


27 FF 


11 


128 ES 


14 


89 Sector length. This 
is not a real length 
but a code which has 
different meanings 
for IBM and non-IBM 
formats. For IBM 128 
byte sectors it is @ 
and for non-IBM 2432 
byte sectors, 98. 


F7 This causes two CRC 
bytes to be written. 
This byte ends the 
ID record. 


@o First part of a 17 
byte gap in front 
of the user data. It 
can also write FF. 


4) The last 6 bytes in 
the gap preceeding 
the user data field 
MUST be zero. 


FB Data address mark. 
This signals the 
start of the user 
data record. 


Fill the user data 
record with ES. This 
is especially 
important for the 
directory sectors 
where ES denotes an 
erased file. 


F7 Write 2 checksum 
bytes (CRC’s) to end 
the user data record. 


FF Setup the first part 
of the gap between 


records. This can 
have @@ or FF data. 


End single sector 
data. After all 
sectors have been 
written, fill the 
rest of the sector 
with FF until the 
1771 interupts out. 


TABLE II 
Tables and parameter storage for Extended Storage CBIOS 


DEFINE DISK PARAMETERS 


Standard sectors 


DW 
Dw 
DW 


XLT@, GOGGH 
BG9SH, BIBGH 
DIRBUF , DPBS 
CSVS,ALVG 


XLT1,999GH 
GOGH, GBGGH 
DIRBUF , DPB1 
cSv1i,ALv1i 


Large sectors 


Dw 
Dw 


,9 
9,0 


;Base of parameter block 


sTranslate table 
3Scratch area 

3Dir buff, param block 
3Check, alloc vectors 
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DISK 


DIRBUF , DFB2 
CSV2, ALV2 


9.8 

8,8 

DIRBUF , DPBS 
CSV3,ALV3 


Standard 8" SSSD 


26 


@ 

243-1 

64-1 
114999965 
BASALABSB 
16 

2 


PHYSICAL DESCRIPTION 


3Sectors/track 

3Block shift 

3Block mask 

sExtnt mask 

3Disk size -1 
3;Directory max 
sAllocd 

sAlloci 

3Check size 

3;Number of sys tracks 


Modified 8" SSSD w/ 2432 bytes/sector & 2 sectors/track 


38 
4 


is 


1 

178-1 

64-1 
19G99999B 
BBGGSSGGSB 
16 

2 


sLogical sectors/track 
3 BLS=2948 


5EXM 

3 DSM 
;Directory 
sAlloc 


3;Check size 
sSystem track count 


Standard sector translation table 


1,7,13,19,25 
5,13 47 2Se5 
9,15,21,2,8 


14,28, 26,6,12 
18,24, 4,19,16,22 


1S 
MS-DOS 


for 


CompuPro 


for 


information 


write 


( omputer House, Inc. 


P.O Box 709 Woodacre, CA 94973 


(415) 897-6387 


Micro/Systems Journal March/April 1985 


you start using a new system, especially 
one that gives you an extended storage 
capability, the tendency is to use it all 
the time. In fact, I used the system dur- 
ing the preparation of this article. The 
danger is that if your system goes down, 
many of your disks and programs can 
not be read by anyone‘you know or on 
any system you have access to. The 
moral is to keep primary backups on 
standard formatted disks. 

Thus far, I have experienced no 
problems with the new system. Routine 
activities such as word processing, as- 
sembling, compiling and linking have 
given no errors. Even DUU worked like 
a champ. My CBIOS lets me mix stan- 
dard and dual sector disks so well that I 
sometimes need to get STAT to find out 
which format a disk actually has. 

For those interested in the applica- 
tion of this method, complete source 
listings are available for the FORMAT, 
Cold Loader, SYSGEN29 and CBIOS 
programs, as well as the MOVCPM 
patch. They have been submitted to the 
SIG/M library of public domain 
software. 


Parameter storage 


s 
ALVG: 
ALV2: 

DS 31 sAllocation area 
csve: 
csv2: 

DS 16 
ALV1i: 
ALV3: 

DS 31 
csvis: 
CSV3: 

DS 16 
3 
DIRBUF: DS 128 


MODEL 100 C COMPILER 


Now you can write efficient programs for your 
TRS-80 model 100 with ease. Or, learn the 
essentials of C programming while traveling! 


C/100 - THE “PORTABLE” C COMPILER 
Cassette version 

Disk/Video interface version 

Model II version (run on mod II, then 
download object code to model 100) . . $79.00 
Model III version (as above for Mod III) . $79.00 


Write or call for information on other 
TRS-80 software. 


MODELS Il, 12, 16 
MODELS Ill, 4 


TRS/C C COMPILER 

Full K&R with source to the 
function library. UNIX 
compatible 


ZSPF EDITOR 

SPF, the choice of most 
mainframe programmers, is 
now available for Z80 machines. 
And it’s panel driven so you 


business utility software 
103 minna ste 423 san francisco ca 394105 


(415) 397-2000 
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Assembly Language 
Extensions for Microsoft Basic 


by Ron Kreymborg 


ecently I was asked to 
write some graphics 
software for a 
Tektronix compatible 
terminal using 
Microsoft Basic. About the same 
time a number of schools requested 
programs, also in Basic 80, for 
experimental monitoring and control 
via the I/O facilities of their 
computers. Both tasks seemed ideal 
candidates for assembly language 
subroutines, particularly as they 
required, fast execution with extensive 
bit handling. However, for school 
use a quick and easy method for 
modifying the routines was essential, 
and interfacing assembly routines to 
the Basic interpreter had always been 
a complex business at best. With this 
in mind, I began looking around for 
some ideas on loading and linking 
assembly modules to Basic. 

Some additional requirements 
were added as the search progressed: 
the system must be easily portable 
between different CP/M computers, 
and a Basic program should be able 
to easily find the subroutine 
addresses at run time. The dreary 
business of fixed memory locations 
for subroutines was ruled out very 
early. This meant some form of 
automatic assembly language module 
relocation, as Basic assumes free 
memory begins immediately after its 
last address. For a system to be 
portable it would need to determine 
its environment at start up time the 
same as Basic, using the various 
memory boundries provided by 
CP/M. 

Although the search included 
most of the usual sources, I could 
not find a method that provided 
exactly what I wanted. However, I 
did find an article on extensions to 
the CP/M BIOS by Mike Karas [1] 
in which he used a relocation 
technique previously described by 
Gary Kildall [2]. Here the assembler 
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HEX file is processed to produce a 
Page Relocatable file (PRL), where 
addresses that require adjustment 
during relocation are flagged in a bit 
map appended to the file. Relocation 
consists of moving the file to the 
destination area and adjusting the 
contents of the flagged bytes to 
reflect their new location. 


My approach 

This started me thinking. 
Perhaps a small program using this 
technique could be permanently 
appended to Basic 80, arranged so it 
ran before Basic, and with a fixed 
task of supervising the relocation of 
an assembly language module to the 
top of available memory. If the 
assembly module itself could be 
repeatedly modified, extended, or 
otherwise changed but always loaded 
at same fixed address, the 
requirement for quick and easy 
modification would be satisfied. 

The hardest part was arranging 
things so the Basic program could 
determine the number of subroutines 
and their addresses at run time. A 
little more brain storming and I had 
the solution: the first statement in the 
assembly language module is a jump 
followed by a byte containing the 
number of subroutines in the module, 
followed by the addresses of each 
subroutine. As an example, if there 
were two assembly routines called 
PLOT and UNPAK, the preamble to 
the module would look like: 


bdos: jmp 0 ; becomes BDOS address 


db 2 ; number of routines 
dw plot ; address of first 
dw unpak ; address of second 


When the relocator program gets 
control, it moves the module to the 
highest possible address in memory, 
performs the bit map directed 
relocation, and extracts the CP/M 
BDOS address from memory and 
writes it to the jump instruction at 
the start of the relocated module. 


Finally it takes the module’s new 
address and substitutes this for the 
old BDOS address. 

A Basic program may now 
easily locate the start of the module 
by reading the address in the BDOS 
jump at location 0005H. By ensuring 
the relocation is always to a page 
boundry, only one byte need be read 
to find the module’s address. Once 
this address is known, the number of 
subroutines in the module and their 
addresses may. easily be found 
because of the standardized structure 
which forms a preamble to the 
module. Normal BDOS calls occur 
as usual with the addition of one 
extra jump. Moreover, when Basic 
80 computes the size of memory 
available by reading the BDOS 
location, the module will be included 
in the calculation and is therefore 
protected from overwriting. 

Although this method allows a 
Basic program to check if the 
currently attached module has at least 
the expected number of subroutines, 
there is no way to check if they are 
the right ones. If this is a problem, 
perhaps where a number of users are 
developing different modules, the 
<count> byte could be replaced with 
a revision or code number that must 
match a similar number in the Basic 
program. Perhaps the easiest method 
is to name YOUR Basic with a 
distinguishing title, like GRAFBAS. 

The preamble standardization in 
the module is reflected in the Basic 
program, the first few lines of which 
are associated with finding out where 
the module is and what the various 
addresses are. I decided the CALL 
method for executing an external 
subroutine would be easier to use 
than the USR function, particularly 
as some users would eventually be 
compiling their finished programs. 
Continuing with the example above, 
the first few lines of a matching 
Basic program would be: 
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100 A = PEEK(7)*256 
110A = A+3 
120 N = PEEK(A) 


* MODULE ADDRESS 
’ SKIP BDOS VECTOR 


130 IF N <> 2 THEN PRINT ‘‘MODULE DOES NOT MATCH”’ : STOP 
140 DEF FNA (I) = PEEK(I) + PEEK(I+ 1)*256-2% 16 


150 PLOT% = FNA (A+1) 
160 UNPAK% = FNA (A+3) 


To ensure the relocator runs 
first, the normal start address of 
Basic 80 is changed to point to the 
relocator, now inserted after the last 
address in Basic. The jump which 
exits the relocator now jumps to the 
old start address, and Basic then 
proceeds with its own initialization. 
Note that the space previously taken 
by the relocator and original module 
is completely recovered for data 
space as Basic 80 itself is quite 
unaware of the module’s existence. 
Further, the relocator can check if a 
module is attached and move straight 
into the Basic initialization sequence 
if not, so the relocator may be left 
attached to Basic whether assembly 
modules are used or not. 


Modifying the subroutine modules 

Once the relocator is appended, 
adding or modifying subroutine 
modules is easy. The module is 
edited and perhaps debugged as a 
separate module if required, then 
assembled and linked using the 
submit file of Figure 1. This assumes 
there is no ORG statement in the 
module, and all references to the 
BDOS address are via the label 
called BDOS in the standardized 
preamble to the module (not to 
address 5). The two ORG files 
consist of a single line each. The 
ORG000 file contains: 


ORG 000H 


while the ORG100 file contains: 


ORG 100H 


The first two PIP statements in 
the submit file append copies of the 
module source code onto these ORG 
lines and the combined files are then 
assembled. The final PIP 
concatenates the two resulting hex 
files into one. The GENMOD 
program reads this file, writing the 
first half out again, then checking for 
bytes which do not match in the 
second half. These bytes should, of 
course, be the high bytes of all 
addresses which will require 
relocation at load time. 

By relating each byte from the 
Start of the file with a single bit, 
setting the bit whenever relocation is 
required, and appending the resulting 
bit map to the output file, GENMOD 
provides all the information a 
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relocating program needs to position 
the file on any page boundry in 
memory. The GENMOD program is 
written in Basic and listed in figure 
2. It is based on the article by Gary 
Kildall and provides all the necessary 
features for generating the relocatable 
module. The relocator module itself 
is very similar to that described by 
Mike Karas and is listed in Figure 3. 
The original relocator and modules 
were written in Z80 code for a 
Micromation system, and were 
therefore somewhat simpler. 
However this article was written for 
users with only the basic CP/M tools 
and Microsoft Basic. 

The Basic I used was revision 
5.2 and it ended at 6000H. This is 
therefore the start address of the 
RELOC program. If you have 
another version of Basic, check its 
ending address with DDT and use 
that in all that follows. After 
assembling the relocator of Figure 3, 
the DDT session required for its once 
only installation follows: 


A>DDT MBASIC.COM 
DDT VERS 1.1 
NEXT PC 
6000 0100 
-IRELOC.HEX (read RELOC program 
ORGed at 6000H) 


The <stack> address is 6060H, and 
this is where the assembly module 
will be loaded to. 

There are two changes to Basic 
that ensure it jumps to the relocator 
first, then jumps back after the 
relocation is complete. First change 
the jump at 100H: 


-L100 

0100 JMP SD7E (In revision 5.2) 
0103 MOV A,C 

0104 DAD H 


This must be changed to jump to the 
start address of RELOC. 


-A100 
0100 JMP 6003 
0103 


Now change the exit point in 
RELOC to the address previously at 
location 100H. 

-L6000 

6000 IMP 0000 

6003 LXI SP,6060 


-A6000 
6000 JMP SD7E 
6003 


Have a look at these changes to 
ensure there were no mistakes: 


-L100 

0100 JMP 6003 
0103 MOV A,C 
0104 DAD H 


-L6000 
6000 JMP SD7E 
6003 LXI SP,6060 


Now exit DDT and save the modified 
Basic under some other name. Here 
we will use BASM for convenience. 


-GO 
A> SAVE 96 BASM.COM 


An example 

As an example of an assembly 
language module, the one in Figure 4 
includes three routines: the first splits 
one integer into two, made up of 
both bytes in the original. The next 
two provide access to the discK 
directory, a feature normally 
unavailable in Microsoft Basic, but 
one rather nice to have for file 
searches etc. Figure 5 is a simple 
Basic program using these functions 
showing typical initialization and 
calling techniques. Remember that 
for up to three arguments, the 
ADDRESS of the first argument is 
passed in HL, the second in DE, and 
the third in BC. 

The DDT session to append this 
module to our previously modified 
version of Basic follows. The offset 
required to read the module into 
memory so it starts at the <stack> 
address in the relocator may be 
conveniently computed using the 
DDT H command. Note that 
changing a module is very easy once 
this offset constant is known, and 
may be conveniently executed with a 
simple submit file. 


A>DDT BASM.COM 

DDT VERS 1.1 

LAST PC 

6100 0100 

-H6060,100 (100H is normal CP/M start address) 
6100 5F60 (use SF60H difference as offset) 
-IMODUL.PRL 

-RSF60 

NEXT PC 

610E 0000 

-GO 

A>SAVE 97 BASM.COM 


A typical submit file to automate this 
process is listed below. Note the 
number of blocks to save (97 here) 
would require modification for larger 
modules. 
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; Syntax is: 
SUBMIT LINK <BASICNAME> <MODULENAME> 


XSUB 

DDT $1.COM 
1$2.PRL 

RSF60 

Go 

SAVE 98 $1.COM 


I hope you will find these 
techniques handy for all those little 
jobs so easily handled in assembly 
language, but awkward in Basic. If 
you really need speed, algorithms 
like sorts are appreciably faster when’ 
written in assembler, and this 
technique provides for easy 


FIGURE 1 


This submit file generates a 
relocatable PRL version of the 
assembly language module. The 
Basic GENMOD program could be 
modified to pick up its input from 
the CPM command line tail area at 
80H, making the whole process 
automatic. Note that in reality this 
organization produces a Digital 
Research SPR or RSP type file rather 
than a strict PRL file. I have kept the 
PRL name for convenience. 


ERA $1.? 

PIP TEMP.ASM=ORGOOO.ASM,$1.ASM 
ASM TEMP 

REN $1.0=TEMP.HEX 

PIP TEMP.ASM=ORG100.ASM,$1.ASM 
ASM TEMP 

REN $1.1=TEMP.HEX 

PIP $1.HEX=$1.0,$1.1 

MBASIC GENMOD 

ERA TEMP.* 

ERA $1.? 


FIGURE 2 


The following Basic program 


provides the bare bones for a 


relocatable module generator. It 
assumes the input file will be of type 
HEX, while the output relocatable 
file is type PRL. In the interests of 
brevity and speed it provides only the 
minimum of error checking. It should 


perhaps check for valid hex 


characters and a correct checksum on 


each line. 


modification during program 
development. In addition, access to 
all BDOS calls (and XDOS calls in 
MP/M) are simple to implement. 
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HS$="0123456789ABCDEF" 
NOPRNT=1 


OPEN "I",1,BS 
PASS=1 


PRINT 

PRINT "FIRST PASS" 
IF EOF(1) THEN 1280 
LINE INPUT #1, L 


GOSUB 2120 
GOTO 1220 


CLOSE 
PRINT "INCORRECT FILE END" 
STOP 


1310 ’ 

GOSUB 2370 

G=256 

PASS=2 

PRINT "SECOND PASS" 
IF EOF(1) THEN 1280 
LINE INPUT #1, L 


GOSUB 2120 
GOTO 1360 


CLOSE 

Q=P+tl 

FOR I=0 TO D 
P=P+1 
M(P)=B(I) 

NEXT I 


IF NOPRNT THEN 1690 
J=0 
PRINT 


PRINT “OUTPUT CODE:" 
1520 PRINT 


FOR I=0 TO P 
IF J<16 THEN 1620 
PRINT w" " ‘ 


FOR K*I-J TO I-1 


J=O : T=512+I : GOSUB 2480 
TeM(L) : GOSUB 2480 

PRINT MID$(T$,3);"_ "5 
J=J+1 


NEXT I 
PRINT 


’ NOW WRITE THE PRL FILE 
BS=AS+"., PRL" 
A$="'0000000000000000"" 
OPEN "R",1,B$,16 


LSET BO$=CHRS$(0) 
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1000 ’ GENMOD 

1010 ’ 

1020 “ AMicrosoft Basic program which simulates the 
1030 ’* Digital Research program called GENMOD.CM. 
1040 “ It takes a concatenated HEX file and produces 
1050 “ a page relocatable version. 

1060 ’ 

1070 ’ 

1080 DEFINT A~Z 

1090 INPUT "FILENAME (.HEX ASSUMED)? ",AS 

1100 BS=A$+".HEX" 

1110 S=6000 

1120 DIM M(S), B(S/8) 


$ 
IF MID$(L$,2,2) = "00" THEN 1320 


$ 
IF MIDS$(L$,2,2) = "OO" THEN 1420 


T=512 : GOSUB 2480 : PRINT T$;" "; 


IF M(K)>=32 AND M(K)<=126 THEN PRINT CHRS(M(K)); ELSE PRINT "."; 


: PRINT T$;" 


FIELD 1, 1 AS BO$, 2 AS B1$, 13 AS B2$ 
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RELOC: 


FOR I=1 TO 14 
MID$(A$ ,I,1)=CHR$(0) 
NEXT I 


PH=Q\256 
PL=Q MOD 256 
B$=CHR$(PL)+CHR$( PH) 
LSET B1S=BS 
LSET B2$=AS 
PUT 1, 1 
LSET B1$=MKI$(0) 
FOR I=2 TO 1 
PUT 1, I 
NEXT I 
FIELD 1, 16 AS BUFS 
N=P\16+1 
P=0 
FOR I=1 TO N 
FOR J=1 TO 16 
MID$(A$,J,1)=CHRS$(M(P)) 
P=P+1 
NEXT J 
LSET BUFS=A$ 
PUT 1, I+16 
NEXT I 
CLOSE 
PRINT 


T=Q : GOSUB 2480 : PRINT T$;" TOTAL CODE" 
T=P-1 : GOSUB 2480 : PRINT T$;" TOTAL BYTES” 


IF FLG THEN 2040 
PRINT "MODULE CONSTRUCTED" : GOTO 2050 


PRINT "ERRORS IN RE-LOCATION" 


’ TRANSLATE THE CURRENT HEX LINE 
TS$=MID$(L$,2,2) : GOSUB 2440 
NeT 
TS=MIDS(L$,4,2) : GOSUB 2440 
P=T*256 
TS$=MIDS(L$,6,2) : GOSUB 2440 
P=P+T-G-1 
J=10 
FOR I=1 TO N 

P=P+l 


TS"MID$(L$,J,2) : GOSUB 2440 

IF PASS = 1 THEN M(P)=T : GOTO 2320 
IF T = M(P) THEN 2320 

T=T-1(P) 

IF (T = 1 ORT = -255) THEN 2290 
PRINT HEX$(P);"RE=LOCATION ERROR";T 


FLG= 
GOTO 2320 
Pl=P\8 
P2=P MOD 8 
B(P1)=B(P1)+2*(7-P2) 
J=J+2 

NEXT I 

RETURN 


“ ZERO THE BIT MAP 

D=P\8+1 

FOR I=0 TO D 
B(I)=0 

NEXT I 

RETURN 


’ HEX TO DECIMAL 


T=( INSTR(HS , LEFTS$(T$ ,1))-1)*16+INSTR(HS ,RIGHT$(T$,1))-1 


RETURN 


‘ DECIMAL TO HEX 
TS$="000"+HEX$(T) 


IF LEN(T$)>4 THEN TS=MIDS(T$,2) : GOTO 2490 
RETURN 


FIGURE 3 


This is the relocator. It resides 
on top of Basic at location 6000H. It 
is assembled using the CPM ASM 
assembler and the HEX output file is 


used directly. 


RRERRRIEKRRERERRRRRERERERERRRRRERERERERE RRR ER EEREEEREERREREEER » 


A program to move a page relocatable assembly 
language module with an origin at zero to the top 


of available memory. 


This code resides at the end of MBASIC 
RRRERRKKRRRERRRIEREK RARER ERIERREIRREERRERERAEREERERRRE REAR ARR » 
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org 6000h 
exit: jmp 0 ; original address of Basic 
start: Ilxi sp,stack 


3; Define code length and start address 


Ixi h, buff 3; source for move 
mov c,m 3 get length of module 
inx h 

mov b,m 

mov a,b 3 anything there? 
ora c 

jz exit 3 eno 

lxi d,0feh 

dad d 3; start of code 
xchg 3; put in DE 

push b 3 save count 

push b 


; Compute destination address in HL 


lhld 6 3 get bdos address 

shld buff£+100h 3; insert in module 

mvi 1,0 3; ensure we go to a page boundry 
inr b 3 convert length to pages 

mov a,h 

sub 

mov h,a 


3 Now move the code to the address in HL 


pop b 3; restore byte count 

push h 3; save destination address 
movlp: ldax d 3; get byte of code 

mov m,a 3; move to new location 

inx h 3; step pointers 

inx d 

dcx b ; and decrement counter 

mov a,c 

ora b 3; done? 

jnz movlp 3 «eno, loop 

pop h 3; restore destination 

shld 6 3; setup new bdos vector 

xchg 

pop b > Yrestore count 


; Now BC has the byte count, HL points to the first byte of the 
; bit map, and DE has the destination address 


push h ; bit map address to top of stack 

mov h,d ; (h) is relocated page offset 
reclp: mov a,b 3; check if done 

ora c 

jz exit > eeyes, go start up Basic 

dcx b 3; decrease count 

mov a,e 3; 1s DE address modulo 8 bytes? 

ani 7 3 if so - must get next map byte 

jnz rec2 3 «eno 


; Get next map byte via top of stack 


xthl 3; get current map pointer 
mov a,m 3; get byte into A 
inx h 3; point to next byte 
xthl 
mov l,a 3 store in L 
rec2: mov a,l 3; check next bit in byte 
ral 
mov l,a 3; save for later 
jnc rec3 3; no relocation required 


; Add in the offset for a set bit 


ldax d 3; get byte 

add h 3; add offset 

stax d 3; store relocated byte back 
rec3: inx d 3; step to next byte in relocated 

jmp reclp 3 code and around again 


3; <stack> must occur on an 8 bit boundry 


org ($ AND Offf0h) + 10h 


stack equ $ 
db 0 
buff: dw 0 3; zero for no module case 
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Super assemblers 


plus the world’s 
largest selection of 
cross assemblers! 


2-80 
Macroassembler 


Power for larger programs! This 

2500AD macroassembler includes: 

* Zilog Z-80 Macroassembler (with 
the same powerful features as all 
our assemblers) 

* powerful linker that will link up to 
128 files. Com files may start at 
any address 

* Intel 8080 to Zilog Z-80 Source 
Code Converter (to convert all 
your Intel source to Zilog Syntax 
in one simple step) 

* COM to Hex Converter (to convert 
your object files to Hex for PROM 
creation, etc.) 

° 52 page User Manual 


8086/88 Assembler 
with Translator 


Available for MSDOS, PCDOS, or 
CPM/86! This fully relocatable macro- 
assembler will assemble and link code 
for MSDOS (PCDOS) AND CPM/86 
on either a CPM/86 or MSDOS 
machine. This package also includes: 
* An 8080 to 8086 source code 
translator (no limit on program 
size to translate) 
¢ AZ-80 to 8086 translator 
* 64 page user manual 
¢ 4linkers included: 
—MSDOS produces .EXE file 
—CPM/86 produces .CMD file 
—Pure object code generation 
— Object code and address 
information only 


Linker features: 

¢ Links up to 128 files 

¢ Submit mode invocation 

* Code, Data Stack and extra 
segments 

* Handles complex overlays 

¢ Written in assembly language for 
fast assemblies. 


Z-8000 Cross Development 
Package 
Instant Z-8000 Software! This 
package allows development and 
conversion of software for the 
Z8001, 8002, 8003 and 8004 based 
machines on a Z-80, Z-8000 or 8086 
machine. This powerful package 
includes: 
* aZ-80/8080 to Z-8000 Assembly 
Language Source Code Translator 
¢ Z-8000 Macro Cross Assembler 
and Linker 
The Translators provide Z-8000 
source code from Intel 8080 or Zilog 
Z-80 source code. The Z-8000 
source code used by these 
packages are the unique 2500AD 
syntax using Zilog mnemonics, 
designed to make the transition 
from Z-80 code writing to Z-8000 
easy. 


All 2500 AD Assemblers and 
Cross Assemblers support the 
following features: 


Relocatable Code — the 
packages include a versatile Linker 
that will link up to 128 files together, 
or just be used for external 
reference resolution. Supports 
separate Code and Data space. 
The Linker allows Submit Mode or 
Command Invocation. 

Large File Handling Capacity 
—the Assembler will process files 
as large as the disk storage device. 
All buffers including the symbol table 
buffer overflow to disk. 

Powerful Macro Section— 
handles string comparisons during 
parameter substitutions. Recursion 
and nesting limited only by the 
amount of disk storage available. 
Conditional Assembly—allows 
up to 248 levels of nesting. 


Assembly Time Calculator— 
will perform calculations with up to 
16 pending operands, using 16 

or 32 Bit arithmetic (32 Bit only for 
16 Bit products). The algebraic 
hierarchy may be changed through 
the use of parentheses. 


Include files supported— 
Listing Control—allows listing 
of sections on the program with 
convenient assembly error detec- 
tion overrides, along with assembly 
runtime commands that may be 
used to dynamically change the 
listing mode during assembly. 
Hex File Converter, included 
—for those who have special 
requirements, and need to generate 
object code in this format. 


Cross reference table 
generated— 


Plain English Error 
Messages— 


System requirements for all pro- 
grams: Z-80 CP/M 2.2 System with 
54k TPA and at least a 96 column 
printer is recommended. Or 
8086/88 256k CP/M-86 or MSDOS 
(PCDOS). 

Cross Assembler Special Features 
Z-8— User defined registers 
names, standard Zilog and Z-80 
style support. Tec Hex output option. 
8748—standard Intel and Z-80 
style syntax supported. 
8051—512 User defined register 
or addressable bit names. 

6800 Family— absolute or 
relocatable modes, all addressing 
modes supported. Motorola syntax 
compatible. Intel Hex or S-Record 
format output. 

6502— Standard syntax or Z-80 
type syntax supported, all 
addressing modes supported. 


ZILOG : OLIVETTI 


DSOFIVAREING 


o=---=--- === P.O. Box 4957, Englewood, CO 80155, (303) 790-2588 TELEX 752659/AD ==============1 


t i 
: Z80 SYSTEM 8000 IBM PC IBM PC M-20 . 
: CP/M® UNIX MSDOS CP/M 86 PCOS 
H i 
i Z8000™ $299.50 $750.00 $299.50 $299.50 $299.50 
: Z80 99.50 500.00 199.50 199.50 199.50 } 
' Z8 199.50 500.00 199.50 199.50 199.50 , 
4 8086/88 199.50 750.00 99.50 99.50 199.50 ; 
' 80186 199.50 750.00 199.50 199.50 199.50 : 
' 8748 199.50 500.00 199.50 199.50 199.50 4 
‘ 8044/51 199.50 500.00 199.50 199.50 199.50 : 
1 8080 199.50 500.00 199.50 199.50 199.50 ' 
' 8085 199.50 500.00 199.50 199.50 199.50 - 
' 8096 199.50 500.00 199.50 199.50 199.50 1 
‘ 68020 399.50 750.00 399.50 399.50 399.50 4 
' 68000,08,10 299.50 750.00 299.50 299.50 299.50 : 
' 6800,02,08 199.50 500.00 199.50 199.50 199.50 H 
' 6801 ,03 199.50 500.00 199.50 199.50 199.50 : 
H 6804 199.50 500.00 199.50 199.50 199.50 ‘ 
' 6805 199.50 500.00 199.50 199.50 199.50 ' 
' 6809 199.50 500.00 199.50 199.50 199.50 , 
i 32000 399.50 750.00 399.50 399.50 399.50 ' 
' COPS400 199.50 500.00 199.50 199.50 199.50 ' 
i NSC800 199.50 500.00 199.50 199.50 199.50 ' 
H 6301 199.50 500.00 199.50 199.50 199.50 ' 
H 6501/11 199.50 500.00 199.50 199.50 199.50 ' 
' 6502 199.50 500.00 199.50 199.50 199.50 1 
i 65C02 199.50 500.00 199.50 199.50 199.50 1 
H 1802 199.50 500.00 199.50 199.50 199.50 i 
i F8/3870 199.50 500.00 199.50 199.50 199.50 t 
i NEC7500 199.50 500.00 199.50 199.50 199.50 | 
NCR/32 399.50 750.00 399.50 399.50 399.50 
t 1 
SURG) Sue aee See he = 8 
i a 
ql 

Name —________________________ TO ORDER. Simply circle the product or ; 
; Company products you want in the price columns, andadd_ ! 
H up your order. H 
| Address Total $ H 
i City___—CState__——— Zip ~—S—— Check one: Shipping UPS Blue 1 
1 Phone 1) 8” Single Label no charge, 
Make and model of computer ; anil So : 
. system —_ SO Cartridge tape H 
! [1 COD (2500AD pays COD charges) : oe (oot) ee ‘ 
al Order i 

i LIVISA or MasterCard athertormats available, oes call! H 
H Ce: | _—_—_ a  e e r 
Expiration Date = = Signature a 
7 | 
i 


FIGURE 4 


This is the example relocatable 
assembly language module for Basic. 
It demonstrates the standard preamble 
and a number of simple subroutines. 


p ERARRRAKERERRRERREREREKRR EER REERERERERERERERERERRERERERERERERERE » 


> 
3; Sample module. Preamble begins.. 3 


5 RRRRRRREARRERERRERRERR REAR REE RERRERRERRERRREEERRRE REE RRR ERERRER » 


bdos: jmp 0 3; bdos vector 
db (4-$)/2 } routine count 
dw split 3 split an integer 
dw getlst 3; BDOS call 17 
dw getnxt 3; BDOS call 18 
dw setdma 3; BDOS call 26 
j equ $ 


j RRRRAKRARRER RAKE KKK IKKE ERR EKER REE ERE RK RE RE RRERER RARE REE 


3; Split an integer into its seperate bytes. 


3 Basic call syntax is: 
3 CALL SPLIT% (SORCE%, LBYT%, RBYT%) 
split: mov a,m 3 get right byte 
push psw H and save it 
inx h 3 get left byte 
mov a,m 
xchg 3; and put in LBYT 
mov m,a 
inx h 
xra a 
mov m,a 
mov h,b 3; right byte pointer into HL 
mov Le 
pop psw 3; restore right byte 
mov m,a : and put in RBYT 
inx h 
xra a 
mov ma 
ret 


RRR IIR AIR IR IIHR IKI III III III RII II IRI IRI SOI IRI III IIASA IS 
BDOS call 17 - search for first matching entry in the disc 
directory. Must be preceded by a set dma call. Call with 
the syntax: 

CALL GETISTZ (FCB%(0), PTRZ) 
Returns: 
PTR = O thru 3 


> 
= FF 4 
; 
5 


PTR*32 => directory entry in DMA. 
no match found, 

save flag address 

pointer into DE 


Wee ee ee we ee we ee we 


getlst: push d 

xchg 
c,17 
bdos 
h 


a return flag 


m, 
h 
a 
ma 


FARSI IOI ITI TOT IIA OI I IIIT II IAAI. 
; BDOS call 18 - search for next matching entry. Call and 


3 return as for <getlst>. 
getnxt: push d 3; save flag address 
xchg 3; pointer into DE 
mvi c,18 
call bdos 
pop h 
mov ma ; return flag 
inx h 
xra a 
mov m,a 
ret 


= RRKKAEKRREEEAEREREREEKRERKEKERERERERERREREKEKRKEEREERRRKEKKKKRKKKKKKER 
BDOS call 26 - set DMA address. Call with the syntax: 
CALL SETDMA% (DMABUFF%(0)) 


where DMABUFF is the first entry in a 128 byte array, ie set 
with a DIM DMABUFFZ(64) statement. 


setdma: xchg 3; pointer into DE 
avi c,26 
call bdos 
ret 
end 
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FIGURE 5 


Directory reading program in Basic. 


sas 


This program uses external assembly language routines 
to assemble a string array containing matching entries 
’ in the disc directory. Note that no new variables may 
* be defined between calling GETIST and the last call to 
‘ GETNXT. 

DEFINT A-Z 

DIM FCB(20) ,DMA(64) ,DILR$(100) ,CR(2) 
DEF FNA(A!) = PEEK(A!)+PEEK(A!I+1)*256-2716 
A! = PEEK(7)*256+3 

N = PEEK(A!) 

IF N <> 4 THEN STOP 

SPLITZ = FNA(AI+1) 

GETISTZ = FNA(A!+3) 

GETNXTZ = FNA(A!+5) 

SETDMAZ = FNA(A!+7) 

FLG=0 : CR(O)=0 : CR(1)=0 : 


’ 


Ron Kreymborg 


E=0 : L=0 
PRINT "Enter required match string as 11 characters, with" 
INPUT " a ’?’ to match any character: ",AS 
PRINT 
IF LEN(A$) <> 11 THEN PRINT "Pardon?" : GOTO 300 
PRINT "Matching entries:" 
FCBS = "."+AS 
FOR I=l1 TO 100 
DIRS(1) = " " 
NEXT Z 


‘ Copy the specified filename into the FCB. 
J=0 
FCB$ = FCBS+" " 


FOR I=0 TO 5 
J = J+l :M = 1 =: GOSUB 660 
J = J+l : M = 256 : GOSUB 660 
NEXT I 


CALL SETDMA% (DMA(0)) 
CALL GETIST% (FCB(0),FLG) 


E = E+l 

IF FLG>3 THEN 560 

GOSUB 720 

CALL GETNXTZ (FCB(0), FLG) 
GOTO 500 


FOR K=1 TO E-1 
IF (K-1) MOD 4 = O THEN PRINT 
PRINT DIRS$(K);" "; 

NEXT K 


* Load the ASCII sequence number into the correct 
‘ byte (specified by M) of the Ith FCB word. 

BS = MIDS(FCBS,J,1) 

IF BS <> "." THEN FCB(L) = FCB(1)+ASC(BS) ™# 
RETURN 


’ 


. 


Extract each byte from the DMA buffer and load 
them into the DIR$ string. 
K = FLG*16 
U = U+l 
L=1 
FOR I=K TO K+5 
CALL SPLITZ (DMA(I), CR(1), CR(0)) 
FOR J=0 To 1 
IF (I = K AND J = 0) THEN 810 
BEDeCDEROCUD sb p2) = CHRS(CR(J)) 


NEXT J 
NEXT I 
RETURN 


, 
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LOMAS DATA PRODUCTS INVITES YOU TO: 


SHARE THE THUNDER. 


The $100-PC-TM offers the 
following standard features: 


High performance THUNDER186 8Mhz 

80186 processor 

512K bytes of RAM (expandable to 1Mbyte) 

4 serial ports to support up to four users 

3 Centronics compatible parallel ports 

Concurrent DOS operating system 

allows execution of both CP/M-86 and 

MS-DOS (PC-DOS) programs 

5%" IBM-PC compatible floppy drive j , 
(1 40 Mbyte high performance Winchester drive ‘a’ 
|] Attractive 10 slot desktop enclosure ck 


In addition, a number of options are available including: 
larger Winchester drives, more user ports, 80286 proces- 
sor, graphics support and additional operating systems 
(MS-DOS and CP/M-86). 


$100 BUS boards products & support 
for the system integrator... 


All of LDP boards are fully tested to exacting standards 
and carry a one year warranty. We specialize in 16-bit 
products & support the major operating systems for 16-bit 
processors: CP/M-86*, CONCURRENT CP/M-86*, and 
MS-DOS (PC-DOS). 


@ THUNDER186 — THE ONLY COMPLETE S100 BUS, 

16 BIT SINGLE BOARD COMPUTER AVAILABLE 

TODAY. 

Concurrent CP/M-86, which in addition to running CP/M-86 

programs, runs MS-DOS programs. Comes complete, 

ready to plug into an enclosure and run. 256K bytes of 
PRICE $1595.00 


@ LIGHTNING ONE***8086/8088 CPU 
8086 or 8088, with 8087 and 8089 coprocessors. Up to 10 
MHZ operation PRICES start at $425.00 


@ HAZITALL SYSTEM SUPPORT BOARD 
2senial, 2 parallel ports, battery protected clock calendar. 
Hard disk controller host interface PRICE $325.00 


@ LDP 128/256K DYNAMIC RAM 
Advanced dynamic RAM with LSI controller for failsafe 
operation, parity . . PRICE 128K—$395.00, 256K$649.00 


@ RAM67 HIGH PERFORMANCE STATIC RAM 
High speed (100ns) low power CMOS static RAM. 128K 
bytes, extended addressing PRICE $995.00 


@ LDP72 FLOPPY DISK CONTROLLER 
Single/double density, single/double sided disks, both 8” 
and 54" inch drives simultaneously PRICE $275.00 


@ LIGHTNING 286—80286 CPU BOARD 
Offers 4 times the performance of a 5MHZ 8086 CPU while 
maintaining software compatibility PRICE $1395.00 


@ OCTAPORT 8 PORT SERIAL BOARD 
0 to 19200 baud operation real time clock interrupt. Ideal 
for multi-user systems such as MP/M-86* PRICE $395.00 


S100-PC-TM is a trademark of Lomas Data Products, Inc. 

*CP/M-86, MP/M-86 and CONCURRENT CP/M-86 are trademarks of 
Digital Research. **MS-DOS is trademark of Microsoft. 
***Lightning One is trademark of Lomas Data Products, Inc. 


5100-PC-TM: The LDP 
Multi-user $100 Bus System 
offers high performance at 
a “low” price. . . plus, 
“‘our’”’ system is expandable 
and upgradeable! 


2  ODDSO 
An unbelievable 


LOMAS DATA PRODUCTS, INC. 
66 Hopkinton road, Westboro, MA 01581 
Tel: (617) 366-6434 11 Telex: 4996272 


Dealer inquiries invited. 


For orders outside the U.S., contact 
our exclusive dealers: |_| Australia — 
LAMRON PTY. LTD., (02) 85-6228 

(] Malaysia — EXA COMPUTER (M) 
SENDIRIAN BERHAD, 795284 ‘ 


RP/M.. 


By the author of Hayden's "CP/M Revealed." 


New resident console processor RCP and new 
resident disk operating system RDOS replace CCP 
and BDOS without TPA size change. 


User 0 files common to all users; user number 
visible in system prompt; file first extent size 
and user assignment displayed by DIR; cross-drive 
command file search; paged TYPE display with 
selectable page size. SUBMIT runs on any drive 
with multiple command files conditionally invoked 
by CALL. Automatic disk flaw processing isolates 
unuseable sectors. For high capacity disk systems 
RDOS can provide instantaneous directory access 
and delete redundant nondismountable disk logins. 
RPMPIP utility copies files, optionally prompts 
for confirmation during copy-all, compares files, 
archives large files to multiple floppy disks. 
RPMGEN and GETRPM self-install RP/M on any 
computer currently running CP/M®2.2. Source 
program assembly listings of RCP and RDOS appear 
in the RP/M user's manual. 


RP/M manual with RPMGEN.COM and GETRPM.COM 
plus our RPMPIP.COM and other RP/M utilities on 
8" SSSD $75. Shipping $5 ($10nonUS). MC,VISA. 


118 SW First St. - Box G 
Warrenton, OR. 97146 


Mee 
: ethods, Inc. 


(503) 861-1765 


SMARTS RAM DISK 


SOFTWARE 
for the QT, Great Salt Lake 
California Digital or Computime 
S-100 256K DRAM Memory Boards 
Only 
$40.00 
or $500 with A&T board 


UFDC-I Floppy Disk Controller 
Reads/Writes 54 Formats 


$275.00 


CP/M Football Prediction Program 
available in many formats 


$40.00 


All S-100 HARDWARE AVAILABLE IN 


BARE BOARDS KITS OR A&T 


GSR COMPUTERS 
60-10 69th St. 
Maspeth, NY 11378 
(718) 476-2091 


NYS Residents Add Tax - $5 S&H 


CP M EPROM 
PROGRAMMING SYSTEM 


2708 2016 
208 2032A 
2716 27128 
2732 27206 
2164 2tCXX 


—SOPTWARE SPECIPICALLY DESIGNED POR _CP/M COMPUTER SYSTEMS 

— STAND ALONE BOARD  - ELECTRONIC SWITCHING OF EPROM TYPES 
~ USBS 24 VOLT XFMR FOR POWER — — ALL SUPPLIES/TIMING ON BOARD 
- DESIGNED WITH EASY TO GET PARTS — LARGE COMPREHENSIVE MANUAL 


* * CENTRONICS INTERFACE * * 


CONNECTS TO ANY CENTRONICS PRINTER INTERFACE — USES 8 OUTPUT 
DATA BITS AND ONE INPUT DATA BIT (BUSY LINE). BUSY LINE IS A 

HIGH SPEED SERIAL INPUT. PULL EPROM READING AND PROGRAMMING 
INSTALL PROGRAM PROVIDED FOR QUICK INSTALLATION TO HOST SYSTEM 


* * CONTROL PROGRAM COMMANDS * * 


— PROGRAM BPROM(S) FROM DISK - SAVE EPROM(S) TO DISK 

— RBAD DISK FILE INTO RAM — PROGRAM EPROM(S) FROM RAM 

~ RBAD EPROM(S) INTO RAM — COMPARE EPROM WITH RAM 

— VERIFY EPROM IS BRASED — COPY EPROM 

— DISPLAY/MODIFY RAM - (MONITOR MODE) WITH 1] SUB COMMANDS 
PILL-DUMP-XFER-EXAMINE-MODIFY—BIAS-PROGRAM-VERIPY, ETC ) 


BARE P.C. BOARD WITH COMPLETE DOCUMENTATION 
AND SOFTWARE ON 8" SINGLE DENSITY DISKETTE $69 


(ABOVE WITH COMPLETE PARTS KIT — $169)(A&T — $189} 
SOPTWARE AVAILABLE FOR OSBORNE, KAYPRO AND OTHER 5 1/4 FMT'S 


TO ORDER SEND CHECK, MONEY ORDER, WRITE OR CALL 
ANDRATECH 
P.O. BOX 222 
MILFORD, OHIO 45150 
(513) 752-7218 
CALL OR WRITE FOR MORE INFORMATION -~ ADD $300 FOR SHIPPING 


OHIO RES. ADD 55% TAX -- VISA/MC. ACCEPTED -- $300 FOR COD 
Still Searching 
For Files 
Without 
™ 
e 
EUREKA! 
29° 


You may not know it, but a disk cataloger can be a big 
help in managing your computer files. Why not go with 
the best? EUREKA! is a terrific time saver for ... 


e Lawyers e Accountants 
¢ Software Developers e Researchers 
e Writers e Secretaries 
e Teachers e Consultants 
e Project Managers e Journalists 


People who try EUREKA! love it..... 


‘Just started cataloging with comments - Great Idea” GR-MI 
“Great time saver in locating material on disks.” WB-NY 
“Your manual is the best written | have ever seen.” MT-NS 


“We finally chose EUREKA! ... largely because it has the ability 
to read comments directly from a file ... EUREKA! is easy to 
learn and use, has more access and report choices, finds files 
by many different ways, and has an attractive price." 

T. Bove & GC. Rhodes, USER'S GUIDE No. 11 


EUREKA, the popular CP/M® disk cataloger 
Still only $50 


Mendocino Software Company, Inc. 
Dept.M -3 
P.O. Box 1564 
Willits, CA 95490 

add $2.50 shipping (707) 459-9130 VISA & MasterCard 
Calif. residents add 6% sales tax accepted 

A EUREKA! package is cesigned to run on only a single system. 

Licenses for additional systems (for a single user) are $15 each. 


EUREKA! is a trademark of Mendocino Soltware Company, Inc. 
CP/M is. registered trademark of Digital Research, Inc. 


Move over, Crosstalk® ... 


Last year, the NightOwl 
delivered MEX, the 
Modem EXecutive that 
tamed the 8-bit com- 
munications frontier. 


This year, he’s doubled 
his byte with MEX-PC — 
the supercharged 16-bit 
communications pack- 
age for the IBM-PC — 
and he’s looking to take 
on the big boys, feature 
for feature. 

plus $5 for shipping 


$59.95 Sia 


(includes MEX-PC software and com- 
plete manual) 


Give us a call at 1-800-NITEOWL 


The NightOwl’s in town 
and he’s packing a 
16-bit MEX! 


Supports all popular modems @ Pro- 
grammable for unattended 
operation @ Extensive HELP 
overlay @ Auto-dial and redial 
@ Alternate long distance dialing 
(ALD) @ “List’’ dialing with auto- 
matic baud switching e Instant de- 
fining of IBM-PC function keys @ 
Fast creation of custom “smart” 
phone directories @ All popular 
protocols — extended Christensen 
XMODEM (Checksum and CRC) Com- 
puServe A, ASCII (X-on, X-off) odd- 
even-none bit parity e A CLONE 
routine for unlimited creation of cus- 
tomized versions @ Full access to 
your own operating system and soft- 
ware while logged onto a host 
system @ Delay-adjustable Break 
key @ DOS-compatible commands 
@ Supports all monitors, port 
switching, named directories, on-line 
printing @ IBM-PC-XT-AT — all DOS 
levels @ 110 to 19,200 baud on most 
equipment @ Source code for any 
overlay available 


(in Wisconsin, call 414-563-4013) 


Crosstalk XVI is a trademark of Microstuf, Inc., Atlanta, GA 


MEX-PC is a trademark of NightOwl Software, Inc., Rt. 1, Box 7, Fort Atkinson, WI 53538 


“Individually, each of these fea- 
tures enhances the experience 
of telecomputing, but together 
they add up to enormous 
power and flexibility. . . one 
of the most innovative and so- 
phisticated communications 
packages available. . . MEX has 
been greeted with universal ac- 
claim.” 

That’s how Link-Up magazine 
described the 8080 version of 
MEX last September. Now, 
there’s MEX-PC! 


You've struggled with over- 
priced, so-called smart termi- 
nal software long enough. 


Now, experience the genius, 
the economy, the power! of 
MEX-PC. 


NightOwl 


‘tware, inc, 


—_ 


Logical Name Translation: 
New Tricks for CP/M 2.2 


by David Brewer 


ne of the most powerful features found in 

larger computer operating systems has 

somehow escaped the attention of the 

CP/M community entirely. Adding LOGI- 

CAL NAME TRANSLATION to enhance 
the CP/M man/machine interface is not difficult to imple- 
ment or to understand: it is simply long overdue. The pur- 
pose of logical name translation is to simplify the dialogue 
between you and your operating system by “teaching” the 
system to recognize your own brand of shorthand. Having 
CP/M “Know what you mean” can free you from the 
standard syntax and command usage rules you have been 
putting up with all this time. After all, who’s in charge 
here, you or your microcomputer? By making this feature 
resident in the operating system, translating “what you 
say” into “what you mean” takes only a few milliseconds 
and in no way affects any applications software that you 
run on your machine. This article presents a technique for 
implementing the translation feature on Z80-based CP/M 
2.2 systems. The source listings are “low key” Z80 code 
(no use of index registers), so that adaptation for 8080 sys- 
tems is not too difficult. 


What is a logical name? 

Logical names are string type variables that can be defined 
and used at the operating system command line level. 
Wouldn’t it be nice to define DB to represent the string 
“DIR B:”, and then be able to simply enter DB to produce 
a directory of disk B:? Logical names like DB are nothing 
more than a user-defined “shorthand” substitution for 
their string definitions. The beauty of the enhancement is 
that no disk access or any perceptible delay is introduced, 
since the translation tales are maintained in memory. No 
renaming of files or commands is involved, and standard 
command usage is still valid. Logical names can be defined 
to represent any string, whether it be an entire command 
such as DB, a portion of a command, a filename, or any se- 
ries of printable characters. In essence, by making logical 
name definitions, you are teaching CP/M to recognize a 
wider variety of command syntax. 

The logical names themselves are your own fabrication. 
On my system, “!’? means “‘*.*”’, DEL and ERA mean the 
same thing, TY works the same as TYPE, and the list goes 
on. In 2K of memory, 50 to 100 definitions can be main- 
tained, depending on string lengths. With a little imagina- 
tion, you can see how CP/M could recognize commands in 
French, or execute lengthy PIP commands via a single 
keystroke. Handicapped users and Europeans take note! 


How does it work? 

The CCP portion of CP/M is responsible for analyzing 
command lines, processing built-in commands, loading 
user programs, and handling SUBMIT procedures. Col- 
lecting a line of input, however, is done by calling a subrou- 
tine in the BDOS. The translator intercepts this call so that 
the collected input line can be examined before the line is 
passed back to the CCP. If any logical names are detected 
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on the input line, the translator replaces them with their 
string equivalents before returning control to the CCP. 
The translation is totally transparent to the CCP, which 
thinks you have entered a standard command line. 

The catch to the enhancement is that the logical name 
translator must reside somewhere in memory at all times 
and not get trampled by applications programs. The only 
protected RAM space is that above the BIOS. 


Making room in the attic 
The logical name translator is going to cost 2K of memory, 
but it doesn’t require any permanent changes to the operat- 


ing system code itself, since it is installed on the fly. If you 
don’t want to use the feature, you don’t have to bring it 
into the environment. 

Finding a place to hide the translator is the only prob- 
lem to solve. Many systems already have RAM collecting 
dust in the “attic” above the BIOS due to disk controller or 
monitor ROMs in the 56K to 62K range. Phantom options 
on memory boards, or even an old fashioned 4K RAM 
board could be empoloyed to provide the 2K space. In the 
worst case, the MOVCPM and SYSGEN programs must 
be used to generate a new CP/M system that is 2K smaller 
in size. Before you wince at the thought, consider how 
many programs you have that won’t run in 2K less space, 
and how often you will probably use the translation 
feature. 


How do you use it? 
Once the translator is loaded, logical names may be used 
freely on any CP/M command line. Communicating with 
the tanslator to define new logical names, delete old ones, 
or produce a list of currently active names is quite simple. 
If the first character of a command line, immediately fol- 
lowing the CP/M prompt, is the sentinel character ‘‘*”’, 
then the remainder of the line will be treated as an IN- 
STRUCTION to the translator. After the instruction is 
processed, an empty line will be forwarded to the CCP, 
which wouldn’t know what to do with the instruction any- 
way. The translator does no disk access. 

The instruction to define (or redefine) a logical name SC 
might look like this: 


A2#SC:="STAT *.COM* <ret> 


In this case, SC has been chosen to represent an entire 
command to produce a status display of all .COM files on 
the disk. Notice that the logical name is followed by a 
colona nd equals sign, followed by its string definition en- 
closed in single quotes. From this point forward, any ap- 
pearance of the name SC will cause the definition string to 
be substituted. The simple command: 


ASSC “ret> 
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will produce the dame status display as the standard com- 
mand. If no blanks or special characters are included int he 
string, the single quote delimiters ar not required, as in: 


ASHDEL:=ERA <ret> 
or 
ATHEEILL:=DEL <ret> 


The second example shows that logical names can be de- 
fined in terms of other logical names. Now, ERA, DEL, 
and KILL can all be used interchangably to do the same 
thing. If you like a little class, try these: 


A>HSHOW:=STAT <ret> 
APHALLI="K.K?  <ret> 
A>#COMS:="*.COM* <ret> 


Now the status utility can be invoked with some finesse: 


ASSHOW ALL <ret> 
and 
A>SHOW COMS <ret> 


My fingers never manage hit the W key on this one, so I 
gave in: 


A>H#SHOE:=SHOW <ret> 


and SHOE, SHOW, and STAT all look identical to my 
system. 

If you are hacking away at a Fortran program called 
B:HALSTEAD.FOR, you might set up some definitions 
like these: 


A>HF:="F8S B:HALSTEAD, =B: HALSTEAD. FOR* 
A>¥#L:="*L8@ B:HALSTEAD, B: HALSTEAD/N/E* 


Now, compiling is a one keystroke affair: 


ASF <ret> 


and so in linking: 


ASL <ret> 


You could, of course, put these commands in a submit pro- 
cedure, and just to make it fun: 


A>#G0:=’SUBMIT B:HALSJOB* <ret> 


then crank up the procedure by simply typing: 


A>GO <ret> 

Since extra spaces are generally acceptable on command 
lines, you can be creative with the Fortran compiler 
command: 


A>#Z:=" Bs HALSTEAD* 
A>#COMPILE:="FS8 =* 


“ret> 
<ret> 


and actually make the command readable (imagine that!) 
ASCOMPILE Z <ret> 
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Some special effects 

An interesting side effect is that semicolons and single- 
quote characters (normally invalid on comand lines) are 
always filtered out by the translator, but can be used as 
separators. Single quotes can be used to designate portions 
of a command to be excluded from translation, and semi- 
colons can be used for concatenation of logical names to 
adjacent characters or other logical names. Consider: 


A>H#T: =" TYFE* <ret> 


ASHXX:="BR:ANIMAL* <ret> 


Then listing the Basic source file B:ANIMAL.BAS on the 
console becomes: 


AST XX3.BAS <{ret> 


The exact substitution done by the translator would be: 
A>TYPE B: ANIMAL; . BAS 


but the semicolon is eliminated before the line is passed on 
to the CCP. 

Logical names must always be separated from sur- 
rounding text by spaces, or the usual punctuation. The 
translator wili never see a logical name imbedded in a 
filename, for instance, unless the semicolons or single 
quotes were used. The translator is smart enough to know 
the difference between a logical name like B and the drive 
specification B:, and doesn’t attempt to translate any single 
characters that immediately precede a colon. 

It is easy to get carried away with the translator, and you 
can get yourself into trouble if you redefine symbols like 
“=” or “:” or “*” to be logical names. If you make use of 
the USER feature of CP/M (you really should), then you 
might be tempted to do this: 

A>#HE:="USER 2* ¢ret> 
which will do just what you expect, but consider what will 
happen the next time you try: 


A2SAVE 2 TEST.COM <tret> 


The exact translation would be: 
AS>SAVE USER 2 TEST.COM 


and will be rejected by the CCP. The following definition is 
nearly as short, and works a little better. 


ArHU2:="USER 2° <ret> 


Avoid defining a logical name in terms of itself, or your 
system will make a quick trip to Pluto. 
The instruction to eliminate alogical name looks like: 


ASEDROP KILL <ret> 


At this point, KILL is no longer defined. 
The instruction to list all currently defined logical 
names and their string equivalences looks like: 
ASHLOG <ret> 
which will display all the active names on the console. 
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Loading and saving logical names 

It would not be very useful to require the user to retype all 
his definitions each time he powers up, so a means to batch 
load an entire set of disk-resident definitions is provided. 
This function is handled by the same program that acti- 
vates the translator itself (Listing 2). Assuming that the 
program has been named LNT.COM, the translator is 
laoded by: 


AtLNT <ret> 


and will remain active until a powerdown or reset occurs. 
An “OK” message is printed, indicting that the translator 
has been loaded. In this case, the current table of logical 
names will be initialized toempty. Ano _ ptional filename 
may appear on the command line as in: 


A>LNT MYNAMES.LOG <ret> 


In this case, the program will read the specified file, ex- 
pecting to find ASCII text lines of logical name definitions 
exactly as you would enter them from your keyboard (in- 
cluding the leading “#” character). The table of logical 
name definitions will then be initialized to include the defi- 
nitions from the file. If no filetype is given with the file- 
name, and extention type of .LOG will be assumed. This 
command can be reissued at any time to load a new set of 
logical names or zero out the current table. 

A second program (Listing 3) is used to save the current- 
ly active logical name definitions to a disk file. Assuming 
that the program has been named SAVLOG.COM, this 
function is accomplished by: 


A>SAVLOG FILENAME.TYP <ret> 
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which is needed by the LNT. 


CCP+@1A1 in order to pick up the destination at CCP+@1A2 and 


CCP+91A 


The filename parameter is required and designates the file 
to receive the definitions. This file will be ASCII text com- 
patible with the LNT.COM program, and may be edited, 
etc., using standard utilities. An extension type of .LOG is 
recommended. 

The program in Listing 1 will help identify the exact 
memory locations that the translator program needs to as- 
semble correctly. Run this program first to discover the lo- 
cations of CTARG, BTARGI1 to BTARG4, and 
WTARGI1 to WTARG4 required in equate statements at 
the head of the main program in Listing 2. 

If you are the least bit curious about this enhancement, I 
encourage you to try it out; it can save you a great deal of 
time and frustration, and it’s fun! 


FOR THE NON-DO-IT-YOURSELF-ER 

The logical name translator is actually one part of a 
CP/M 2.2 enhancement package offered by a small user’s 
group in Dallas, Texas. Another part of the package (in the 
same 2K space) is a command line editor that permits 
redisplay and modification of a previous command line in 
word-processor fashion. After corrections are made the 
line is resent for you. It is much more fun to fix mistkes 
than having to retype lines. An 8” SSSD disk with both fea- 
tures, a quick installation program, and manual is avail- 
able. Send $18 and a description of your system and termi- 
nal c/o the author, P.O. Box 902306, Dallas, TX 
75390-2306. All correspondance is welcomed. 


Dave Brewer is a software test engineer at E-SYSTES in 
Garland, Texas, and is finishing an MS in computer sci- 
ence at the University of Texas at Dallas. He has been 
an assembler language devotee for eight years on a vari- 
ety of machines, has taught mathematics and computer 
science, and is writing a book on ergonomic enhance- 
ment techniques for microcomputer systems. 
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four jumps to the CCP or CCP+3 occur in your BIOS, you better 
write me a letter. 


any uncommon Z8@ pseudo ops, except perhaps the one on the first line. 
The only Z89 specific instructions are the block moves and relative jumps 
so that adapting to 8699 machines requires minimal effort. This code will 
assemble directly using Microsoft’s M84. Other assemblers may use DEFRB 
and DEFW storage declarations instead of DB and DW. 


LD A, (COUNT) 3; put 1,2,2 or 4in A RET Zz 5 If so, then return. 7 
INC A : increment the BTARG counter, CP @D2H 3 Is it jump on no Carry? 
LD (COUNT) A 3 and store it away. RET z 3 If so return. 
CALL SENDA 3 and send the counter to console cP @CAH 3 Is it jump on zero? 
=. me 1 > | iets aeeceanee 
CALL PRLINE and send that a 3 " 
LD A,H : point to high byte of this BTARG RET 3 If so return zero, else non-zero. 
CALL SENDAX 3 and tell us what it is, : 
LD A,L 3 point to low byte, 3 
CALL SENDAX i snd tell us E pee it is. 3; Subroutine to send a string to the console. 
POP DE 3 retrieve CCP address. 3 
POP BC 3 and the scan counter, PRLINE: PUSH = HL 
GOON: INC HL 3 move on along to next BIOS byte, LD C.9? 
DEC EC 3 have we scanned 2K yet? CALL BOOS 
LD a,c 3; if not, POP HL 
OR B 3; then RET 
JR NZ, LOOP 1 3 continue scanning for CCP matches. 3 . ; 
Lb BC, G896 3 done with first scan. Reset counter. 3 Subroutine to print character in A on console. 
LD A, 7 @* 3 and the target id counter. 3 
LD (COUNT) ,A 3 store it. SENDA: PUSH HL 
LD HL, (@@@1) 3 Now point to BIOS+S once again LD E,A 
INC DE 3 this time we look for an e.2 
INC DE 3 reference to CCP+3, so CALL gaa 
INC DE 3; DE in incremented by 3 POP HL 
LoorP2: LD ASE 3 put low byte of CCP+3 in A RET 
CP (HL) 3 match in BIOS? . 
ae NZ EON # af, nots, Fook ious 3 Subroutine to send the two character ASCII hex of value in A 
INC HL 3 looks good so far, z 
LD A,D 3 check the high byte. . . 2 
cP (HL) 3 found CCP+3 reference? See Eee Ar J Se ica High HEBETS 
JR NZ, CONT 3 if not, continue RRCA ig aauawes 
DEC HL 3; found a WTARG..back up to ist byte. RRCA . the 
DEC HL 3 Point to previous byte. RRCA 4 lie nibeie 
CALL ISJIMP 3 Check to see if this is a jump. CALL. 21P bd eon tbbi 
ry 3)6go ie ow ni e 
ine hs 5 Ecok: at thesdow byte agar: POP AF 3 retrieve the original value 
JR NZ, CONT 3 If not type of jump, forget this one. : 7 
: 3 
an oe : ce A Mg al ; we will fall through to the ZIP routine for the second nibble 
j ® ” i 3 
LD DE,GOTWT a; pein tec: WTARG string 3 This little piece of code takes a value from @ to F and produces the 
CALL PRLINE 3 and send that, 3 correct ASCII code to print °@* to *F*. I love it. 
LD A, «COUNT? 3 put 1,2,3 or 4in A $ 
INC A 3 bump it for next time ZIP: AND @FH 5 mask off the high nibble 
LD (COUNT) ,A 3 and store it away ADD A,9@H 5 perform magic 
CALL SENDA 3 send which WTARG number this is. DAA 3 once, 
LD DE,AT 3 Point to " AT " string ADC A, 4H 5 perform magic 
CALL PRLINE 3 and send the string DAA 3; twice, 
LD A,H 3 put high byte of this WTARG in A CALL SENDA 3; and send it. 
CALL SENDAX 3 and send it to console RET 
LD A,L 3 ditto for the low byte 3 
CALL SENDAX 3 to tell us where this WTARG is. 3 
POP DE 3 retrieve CCP+3 location CTMSG: DB CR,LF,°CTARG IS $° 
POP BC 3 and the scan counter. NFMSG: DB *NOT FOUND! $* 
CONT: INC HL 3 point to next BIOS byte. GOTET: DB CR,LF, * BTARGS” 
DEC BC 3 have we checked 2K bytes yet? GOTWT: DB CR,LF, 7WTARGS” 
LD A,c 3 if not AT: DB > AT $7 
OR B 3 then COUNT: DB bal * la 
JR NZ,LOOP2 3 keep scanning. END 
JP Z, 99H 3 if so, then all done. 
3 
3; NOTE: It may very well be the case that no BTARG msg is sent, or no 
; WTARG msg is sent, but at least ONE msg of either type should LISTING 2. LOGICAL NAME TRANSLATOR program 
; appear. As many as 4 msgs of each type may be sent. If more than This is the LOGICAL NAME TRANSLATOR program. Care has been taken to avoid 
3 


wee 


byte pointed to by HL is a type of JUMP. 


Pe 


3 

ISJMP: LD A, (HL) 3 Load the byte at HL. .Z8% 
cP @C3H 3 If its an unconditional jump, ASEG 
RET Z 3 then return. ORG 196H 
cP @DAH 3 Else, is it jump on carry? 
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eae ee ee ae 


DTOUR EQU 
3 

OFF EQU 
LASTAD EQU 
CFMIQ EQU 


BESO9H 


DTOUR — SCODL 
DTOUR + 2046 


IT IS CURRENTLY SET TO 58 


THE VALUE OF DTOUR MUST BE CHANGED TO BE THE START OF THE 2K FREE RAM 
ABOVE THE BIOS. 


Se seas 


Foints to 2K RAM space above BIOS 


offset value used everywhere 
end of the logical name table 


sass SeseS=: 


3 SOME OF THE FOLLOWING EQU VALUES MUST BE CHANGED IF IDENTIFIED BY THE 
3 FINDEM FROGRAM IN LISTING 1. 
3 


BE LEFT ALONE. 


THOSE NOT SPECIFIED BY THAT PROGRAM SHOULD 


CTARG EQU 
BTARGL EQU 
BTARG2 EQU 
BTARSS EQU 
BTARG4S EQU 
WTARG1 EQU 
WTARG2 EQU 
WTARGS EQU 
WTARG4 EQU 


3 
START: LD 


BIGi: LD 


BIO2: LD 
READY: 


RBYE: LD 


RDLOG: LD 


SOODN: LD 


@BEAZH 
@D3CBH 
KEEP+OFF 
KEEP+OFF 
KEEP+OFF 
@DSCBH 
KEEP+OFF 
KEEP+OFF 
*XEEP+OFF 


HL, (BTARG1) 
(FIXX1+1),HL 
HL, (WTARG1) 
(FIXX2*1) ,HL 
HL, (CTARG) 
DE, DOOR+0FF 
ry 

HL, DE 
Z,READY 

HL, SCODL 

DE, DTOUR 

BC, ECODL-SCODL 


HL, DTOUR 

(BTARG1) , HL 
(BTARG2) , HL 
(BTARGS) , HL 


(BTARG4) , HL 
HL, DTOUR+3 

(WTARG1) , HL 
(WTARG2) , HL 
(WTARGS) , HL 
(WTARG4) , HL 


A, (89H) 
ry 


NZ, RDLOG 
(LNT+0FF) A 
GCLIP 

A, (@@55H) 


NZ, GOODN 
A,?L? 
(@B65H) , A 
4,707 
(GB64H) , A 
A,’G’ 
(@957H) ,A 
DE, 305CH 
C,@FH 
CPMIO 
@FFH 

NZ, DORD 
DE, NOTF 
C9 

CPMIO 
REYE 


PT Ta Tao T a TT 


eae ae ee 


we 


say 00 8 Os we OP igs es ee we “ee 


PT ok Ta i Te Tar) 


this one will be changed for sure. 

modify if identified by FINDEM program. 
modify if identified by FINDEM program. 
modify if identified by FINDEM program. 
modify if identified by FINDEM program. 
modify if identified by FINDEM program. 
modify if identified by FINDEM program. 
modify if identified by FINDEM program. 
modify if identified by FINDEM program. 


sorry, but a little self modifying code 
to deal with unknowns is a must... 

but only 

twice. 

Pick up the subroutine call in the CCP 
point to our own destination instead, 
insure carry not set 

and see if the LNT is already active. 
If so, then we can skip the next part, 
else get ready to move the code 

to the 2K space above the BIOS. 

Get length of the code 

and do the block move. 

Point to the entry address 

and modify the BIOS to intercept warm 
starts to the CCP in all the right 
places found by FINDEM program. 

Should never be this many of them. 

All BIOS jumps to CCP+3 will now go to 
DTOUR+3, too, in case your BIOS does 
any fancy stuff. There really shouldn’t 
be more than one or two, but you never 
know. 


Get length of command line extras, 
if not zero 

then go read the file in 

else no file given, put a zero in LNT. 
and go say goodbye. 

See if there was a extention on the 
file name. Is extention blank? 

If not, never mind, whole name given. 
Else fill it in 

with an L 

and 

with an O 

and 

with a G. 

Ready to read it, point to FCB, 

set up the OPEN function, 

and open the file. 

a problem (like not there)? 

If not, then ready to load it in, 
else point to NOT FOUND, 

set up to PRINT STRING, 

send to console, 

and abort the program. 


DORD: LD 
RDLP: PUSH 


RDONE: POP 


SYNTH: LD 


MLOOP: LD 


MDONE: INC 


FAKE: DB 127 


GCLIP: LD 


OKMSG: DB 


main segment 


; 
SCODL: JP 
PLUSS: JP 


BUF@: DW 
KEEP: DW 
FIN: DW 


DE,LDMA 
DE 

C,1AH 
cCPMIO 
DE, @@5CH 
C,14H 
CPMIO 

A 

NZ, RDONE 
HL 

DE, @880H 


DE, FAKE+2 
BC, @B9DH 
A, (HL) 


HL 
HL, FAKE+1 
(HL) ,B 

HL 
(BUFO+OFF) , HL 
BDOOR+OFF 
HL 

A, (HL) 
1AH 

NZ, SYNTH 
GCLIP 


DE, OKMSG 
C,9? 
cPMIO 
BOOB 

> OKs" 


to be relocated 


SMAIN+OFF 
SMAIN2Z+0OFF 
@ 

a 

@ 


Pr ee en i 


cee ee oe 08 Mae OF sae See soe can was cae ses tae wor es ces at oe 


We want to load the file at LDMA 

save that address 

set up the SET DMA function 

and tell CPM where it goes. 

Point to the FCB, 

set up the READ function, 

and pull in a sector from disk. 

All done? 

Yes! then get out of the read loop 
else retrieve the DMA address 

bump it by 128 

and now we have a new DMA address. 
Give it to DE 

and go read another sector. 

Retrieve the last DMA address 

and put a CPM end-of-file mark 

there just to be safe. 

Point to start of file in memory, 
point to our CCP look-alike buffer, 
store a carriage return in C, @ in B, 
look at a byte from the file. 

Is it carriage return? 

If so, stop filling the buffer, 

else count how many bytes we’ve moved 
and put a byte from the file into buffer. 


Bump the buffer pointer, 

bump the file pointer, 

and go look at the next byte. 

Should be a linefeed after the return 
and the next byte is start of new line. 
Save the file pointer, 

point toe byte count location in buffer, 
and put the length of the line there. 
Back up to very start of buffer 

pretend we are calling from the CCP ! 
and take a shortcut into the translator. 


LNT updated his table, now back to the file 


Get the first byte from the next line. 
All done by any chance? 

No, go process another line. 

All done. Go say goodbye. 

Start of CCP buffer look-alike, 

with same length. 

Point to OK message. 

Send the message at DE, 

and AU REVOIR ! 


to high memory begins here.. 


Entry from BIOS (JMP CCP) 

Entry from BIOS (JMP CCFP+3) 
Storage for CCP’s buffer address 
Storage for general use 

Storage for end of buffer address 


ae eae 


NOTF: DE 13,19,*NOT FOUND’, 13,10, 7%" 
NOWAY: DB 13,1@,°NO ROOM’,13,19,°%” 

IERR: DB 13,1@,*NO TRANSLATION. .RE-ENTER. ”*,13,10,°$” 
$LOG: DB 4,°#LOG’ 
$DROP: DEB 5, *#DROP” 


SAVE: DW 
$MAIN: LD 


FIXXi: JP 
3 
$MAIN2: LD 


FIXX2: JP 


24 
@ 

HL, DOOR+0FF 
(CTARG) , HL 
9299 


HL, DOOR+OFF 
<(CTARG) , HL 
ABIDH 


Local stack space 

Storage for CP/M’s stack pointer 
Initialize the CCP on warm boot 
by altering the BDOS call 

This will be a JMP to CCP 


cae ae ae ee ee 


Initialize CCP on fancy boot 
by altering the BDOS call 
This will be a JMP to CCP+3 


THE ADDRESS OF THE TABLE IS PUT AT DOOR-2 SO THAT SAVLOG CAN FIND IT BY 
CHECKING THE CALL ADDRESS FROM THE CCP AND SUBTRACTING 2. 
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LCLP: 


CHKOV: 


THIS 


SCNLP: 


NOTD: 


DONE: 


CLEAN: 


ERA1. 


RAL: 


DW 


LNT+OFF 


Keep start of table for SAVLOG 


IS WHERE THE CCP WILL CALL WHEN HE WANTS AN INPUT LINE 


LD 
CALL 


(BUF 9+OFF) , DE 
CPMIO 


HL, (BUF@+0FF) 
HL 

A, (HL) 

A 

Zz 

D,H 

E,L 

ADE+0FF 

DE 

A 

(DE) ,A 
(FIN+OFF) , DE 
HL 

HL 

A, (HL) 

A 


Z,CHKOV 
oP 

c,LCLP 

ze 

NC, LCLP 

ODFH 

(HL) A 

LCLP 

HL 

HL 

A, (HL) 

a 
(SAVE+OFF) , SP 
SP, SAVE+0OFF 
Z,ANLIZ+OFF 


IS NOT A LNT INSTRUCTION 


DE, HL 
GETWD+O0FF 

Z, DONE 

A, (DE) 
NZ,NOTD 

A,t 

B 

Z,SCNLP 

DE 

FIND+OFF 

NZ, XLATE+OFF 
DE 

SCNLP 

HL, (BUFO+OFF) 
HL 


HL 
BC,273BH 
A, (HL? 

A 

Z, BYE+OFF 
B 

Z,CHOP1 

c 

Z,CHOP1 
HL 

CLEAN 
ERA1+O0FF 
CLEAN 


Pe ek Tk rn 


Se eo i Tk Tk acim Tay iT) 


Save CCP’s buffer address 
then go get the input line. 


HL gets the start of buffer 
plus one (length of line). 

Did you just type <ret>? 

If so, then theres nothing to 
to look at..return to CCP. 
else let DE point to line length, 
then add the length to DE so 
that it points to end of line, 
Plus one, then 

put a 9@ byte there to 
terminate the input line, and 
store the end-of-line address. 
Save HL (buffer start+1). 
Point to next byte of line, 
and check to see 

if its the @@ terminator, 

If so, the check is over, jump. 
Is the character lower case? 
If not, continue 

else this code will convert to 
uppercase. (The CCP does the 
same thing later, but we need 
to do it NOW). 

Continue converting to upper. 
Retrieve start of bufer+1. 
point to first byte of line. 
Is this an INSTRUCTION line? 
If so, hey..wait we better 

set up our own stack in either 
case. Save his Stack pointer. 
«.«.-If so, then go process line. 


DE gets start of buffer 

get the piece of input at DE 

If no more pieces, get out. 
else look at last char scanned. 
Was the seperation char a: ? 
If not, never mind, jump NOTD 
else see if piece was only 

one character (maybe drive spec). 
if so, ignore this piece, loop. 
Got something. Save line ptr. 
go see if its in table. 

If it is, do translation. 

If not, remember where we were, 
and continue scannin the line. 
Done scanning, point HL to buffer 
plus one, and 

finally to line length byte. 
Load a ; and * into B and C. 
Put byte from line into A. 

Are we at end-of-line? 

If so, then go wind down, 

else check for ; 

If 3; found, go eliminate it. 
else check for ” 

If * found, go eliminate it. 
point to next byte in line, 

and continue cleaning up. 

A 3; or * found, delete it. 

and continue cleaning up. 


DELETE ONE CHARACTER POINTED TO BY HL, AND AJUST LINE LEN. 


PUSH 
PUSH 


HL 
DE 


Save 
every- 


3 
; 
x 


LATE: 


DELLP: 


ADDLP: 


ADD1 


Dee we ws we 


ADONE: 


PUSH BC ; 
LD DE, (FIN+OFF) ; 
£x DE, HL ; 
XOR ry ; 
SBC HL, DE 5 
LD B,H 3 
LD Git. 3 
PUSH DE 5 
PoP HL 3 
INC HL 3 
LDIR ; 
LD HL, (FIN+OFF) ; 
DEC HL Fy 
Lb (FIN+OFF) , HL ; 
LD HL, (BUF@+OFF) ; 
INC HL 3 
DEC (HL) 3 
PoP BC 3 
POP DE 3 
POP HL F} 
RET 3 


LD A, (DE) ; 
LD B,A 3 
CALL ERA1+0FF 3 
DJINZ DELLP ; 
LD A, (DE) 3 
CALL ADE+OFF ; 
INC DE 3 
PUSH HL 3 
PUSH DE 3 
LD A, (DE) ; 
LD B,A 3 
CALL ADD1+0FF 3 
DJINZ ADDLP 3 
POP HL 5 
LD C, (HL) 3 
LD Ba Fy 
INC HL 3 
POP DE ; 
PUSH DE 3 
LDIR 3 
POP DE ; 
POP BC ; 
POP HL 3 
PUSH DE 3 
PUSH BC 3 
RET 3 


This routine duplicates the byte 
slides the rest of the line down 


PUSH HL ; 
PUSH DE ; 
PUSH BC 3 
LD DE, (FIN+OFF) ; 
EX DE, HL ; 
XOR ry 3 
SBC HL, DE ; 
Lb B,H 3 
LD Ce ; 
INC BC 3 
LD HL, (FIN+OFF) ; 
PUSH HL 3 
INC HL ; 
LD (FIN+OFF) , HL ; 
POP DE ; 
Ex DE, HL ; 
LDDR ; 
LD A, (DE) ; 
oR A ; 


body. 

DE looks at end-of-line. 

Now HL does, DE to target byte. 
Insure carry not set, 

and find out how far from end.* 
Byte count to end goes into 
register BC. 

Copy the address of byte to 
delete into HL, 

point to byte following, 

and shift the whole line down. 
Get the old end-of-line address, 
subtract one, 

to update it. 

Look back at the start of buffer 
plus one (line length), 

and update the length. 

Bring 

everybody 

back, and 

return. 


XLATE. Replaces the logical name with its string equivalent. 


A gets length of logical name 
from table, then copy to B. 
Delete the logical name from the 
input line, char by char. 

A gets length once again, 

add to DE to point to the string 
definition length in the table. 
Save pointer into input line. 
Save pointer to string in table. 
A gets replacement string length, 
and so does B ( loop counter ). 
Insert extra bytes into the input 
line to make room for string. 
Retrieve pointer to string length 
from table and copy into C so 
that BC is byte counter of move. 
Now point to the string itself, 
get the pointer into input line. 


Keep a copy on the stack. 

Block move the string into line. 
Revive the pointer into the line, 
This is the return address!! 

We are replacing the input line 
pointer deep on the stack. 
Restore the return address, 

and the translation is done. 


at HL on the input line and 
to make room. 


Save 

every- 

body. 

DE points to @@ at end of line. 
Now HL does. DE points into line. 
insure carry not set. 

How many bytes must be shifted? 
BC will contain 

the byte count. 

(Be sure to move the 4@ too). 

HL points to @@ at end of line. 
Save this spot while we 

update this pointer 

by one location. 

Now end of line goes to DE, 
swapped with HL, and 

the whole line is shifted by one. 
If the last byte moved was not 
the @@ (we were at end of line) 


ws 
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ABYE: LD 


Dw ww 


NLIZ: EX 


ee eee 


CALL 
LD 


LOGLP: LD 


3 
DCHCK: LD 


ae ae ee 


NZ,ABYE 
A, 7 &? 
(DE),A 


HL, (BUF@+OFF) 


DE, HL 
GETWD+O0FF 
DE 

DE, $LOG+0FF 
TEST+OFF 
NZ, DCHCK 


COMMAND WAS #LOG 


CRLF +OFF 
DE, LNT+OFF 


A, (DE) 
Aa 

Z, IGNOR+OFF 
DE 

SSTR+OFF 
A,7:? 
SEND1+0FF 
a,7= 
SEND1+0FF 
DE 

SSTR+OFF 
CRLF+OFF 

DE 

LOGLP 


DE, $DROP+OFF 


TEST+OFF 


NZ, NEWID+OFF 


COMMAND WAS #DROP 


POP DE 
CALL GETWD+OFF 
JR Z,NFMSG 
CALL FIND+OFF 
JR Z,NFMSG 
CALL KILL1+OFF 
oP IGNOR+OFF 
IMSG: LD DE, IERR+OFF 
JR SPILL 
NFMSG: LD DE, NOTF+OFF 
SPILL: LD c,9 
CALL CPMIO 
JP IGNOR+OFF 
3 
3 TEST FOR NEW IDENTIFIER. 
3 
NEWID: POP DE 
Lb A, (DE) 
cP bat led 
JR NZ, IMSG 
3 WAS NEW IDENTIFIER.. 
PUSH DE 
INC HL 
PUSH HL 
DEC B 
PUSH BC 
CALL FIND+OFF 


“ 


eas ae ae wee 


aT) 


Mae ee et wee wee ee ee et ee os ae wor ee 


‘ae ae ee ae 


sae tee ee we ee tae 


then jump to ABYE. 

Else we have 2 @@ bytes. 
Generate a non-zero dummy byte. 
Point to input line length 

and update it by adding one 
for the byte we just added. 
Restore 

every- 

body. 

and return. 


THIS WAS A LNT COMMAND...Sentinel character detected in column 1. 


Point DE to start of input line. 
Pick up the first word of input, 
and save address of terninator. 
Point to "#LOG" string. 

Does that match the input? 

If not go check for DROP. 


Send CR-LF to console. 
point to start of table. 


get next entry offset byte. 

Is it zero (end of table)? 

If so we. are done. Jump out. 
Else point to length of name, 
and go send the name to console. 
Now send a colon to 

follow the name, and 

then an = to make it 

look nice on the screen. 

Point to length of definition 
string and go send the string. 
Send a CR-LF 


and we should be at start of next 


table entry. Loop until at end. 


Point to "“#DROP" string. 
Is that the instruction? 
If not, go test for new name. 


Retrieve pointer to next word on 
input line and go get it. 

If nothing there, goto error. 
Else hunt the name in the table. 
If not in table, goto error. 
Otherwise eliminate table entry. 
We are done. Get out. 

Point to "COMMAND ERROR” 

Go print it. 

Point to "NOT FOUND" 

Print the message 

and 

get out. 


Retrieve pointer to word term— 
inator from input line. 

Was it a colon? 

If not, ????77, go tell him ?? 


Save pointer to: 

Point to byte after # char. 
and save that location. 
Adjust length of new name, 
and save it. 

Hunt the name in the table. 


GENERAL 


Uae ee ae 


KILL1. 


LD 
PUSH 
LD 
INC 
LD 
CALL 
DINZ 
POP 
RET 


CPYLP ..BLOCK 


LD 
LD 
INC 
INC 
DJINZ 
RET 


DEC 
PUSH 


NZ,KILL1+OFF 
DE, LNT+OFF 


(FIN+OFF) , DE 


FULLCK+OFF 


CPYLP+OFF 
(KEEP+0FF) , DE 


GETWD+O0FF 


DE, (KEEP+OFF) 
FULLCK+OFF 


CPYLP+OFF 


HL, (FIN+OFF) 


Pr i kk ark i i ke i i 


PURPOSE SENDSTRING ROUTINE. 


SEND1+0FF 


Mee ae ak ae ae ae ae ee ee 


wen ae ae ee ae 


see cae ae ee 


HL,LASTAD 


cas 100 sae cae sae coe as ee ae 


and eliminate it if found. 
Point to start of table, 

and retrieve the name length. 
Look at this byte from table. 
Is it @ (at end of table)? 

If so, stop looking for end. 
Else keep looking 


for end of table. 

FIN can be used for temp storage. 
Point to byte after end of table. 
See if we have room for this entry. 
A gets length of new name. 

Store into table, 

point to next table byte. 
Retrieve pointer to name in line. 
and put a copy into the table. 
Store where we are in the table. 
Retrieve pointer to : in line. 
Pick up the definition string. 

If not any, send error and out. 
Where were we in the table.. 

See if we have room in the table. 
A gets length of string def. 
Store into the table, 

and follow the length with a 
copy of the string definition. 
Ais &&, 

Make a new end of table marker. 
Retrieve old marker (still @), 
Swap these addresses. 

How many bytes did we add? 

Put answer in A (less than 255). 
and udate the old marker. 

We are done. Get out. 


DE POINTS TO LEN+STRING BUFFER 


A gets length of string to send. 
Save whatever is in BC. 

B will be byte counter. 

Foint to next byte to print. 

Put it into A, 

and send it to console. 

Loop until done. 

Restore BC. 

Rye. 


MOVE STRING AT HL TO LOCATION DE. B HAS THE LENGTH. 


Get a byte. 

Copy it. 

Increment source and 
destination addresses 
and continue. 


DROr AN ENTRY. DE POINTS TO IDENTIFIER LEN IN THE TABLE. 


Back up to start of entry, 
and copy this address 

into HL. 

A is length of this entry. 


Find the start of next entry, 

Save the start of entry to delete. 
Point to end of table space. 
Compute number of bytes to move. 
and copy into 

BC. 

Retrieve start of entry to delete. 
Swap with next entry address. 

and shift the entire table down. 
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3 SEND CHARACTER IN A TO CONSOLE CP wit, 
3 RET Zz 
SEND1: PUSH DE 3 Save ce rE? 
PUSH HL 3 every— RET Zz" 
PUSH BC 3 body. cP 71’ 
LD c,2 3 Function number for conout. RET 
LD E,A ; CP/M likes it in register E. cP i 
CALL CPMIO 3 Send it. RET z 
POP BC 3 Restore RET 
POP HL 3 every-— 3 
POP DE 3 body, and 3; FIND. SCANS LNT UNTIL A MATCH IS FOUND FOR STRING AT (HL). RETURNS 
RET 3 return. 3; ZERO IF NO MATCH, ELSE DE POINTS TO LEN BYTE OF ID STRING. 
3 ; 
3 SEND CR-LF TO CONSOLE FIND: LD DE,LNT+OFF 3 Point to start of table. 
3 FLOOP: LD A, (DE) 3; Get first byte of entry. 
CRLF: LD A,13 3 13 is a carriage return. OR A 3 If at end of table, 
CALL SEND1+OFF 3 Send it. RET Z 3; return with zero set. 
LD A,1@ 3; 19 is a line feed. INC DE 3 Else point to name length byte. 
CALL SEND1+O0FF 3 Send it. CALL TEST+OFF 3 Compare with string at HL. 
RET JR Z,GOTIT 3 If a match, jump to GOTIT. 
3 FNXT: DEC DE 3 Point to first byte of entry, 
3; GETWD ROUTINE. DE POINTS TO STRING AT ENTRY, AT TERMINATOR ON EXIT. LD A, (DE) 3 pick up the entry length, 
3 HL POINTS TO START OF WORD, B IS LENGTH, C IS 1 IF CALL ADE+O0FF 3 and move the pointer to next one. 
i A QUOTED STRING, ELSE @. ZERO SET IF END OF BUFFER. aR FLOOP 3 Continue checking for matches. 
H GOTIT: INC A 3 Match! Insure zero not set,and 
GETWD: RET 3 return. 
LD H,D 3 Put a copy of DE : 
LD L,E 3 into HL, and ; TEST. GENERAL PURPOSE STRING COMPARISON ROUTINE. DE+1 AND HL POINT TO 
LD BC, 2609 3 zeroes in B and C. ; STRINGS. B IS LENGTH. RETURNS ZERO SET IF TRUE MATCH. 
DEC HL 3 Syncronize the loop. 3 
LEAD: INC HL 3 Point to next byte of line, TEST: PUSH HL 3 Save 
LD A, CHL) 3 and see if at PUSH DE 3 every— 
OR Aa 3 end of line (@@ byte). PUSH BC 3 body. 
RET Zz 3 If so, goodbye. LD A, (DE) 3; Get string length in table. 
CALL PUNCK+OFF 3 Else look for punctuation, and Cr B 3 Is it same as string in line? 
JR Z,LEAD 3 skip over any you find. JR NZ, TOV 3; If not, the test is over. 
cP 39 3 Check for single quote. INC DE 3 Point to first byte of string. 
JR NZ, GSTRT 3 If not quoted, never mind, jump. TLOOP: LD A, (DE) ; Get a byte from table. 
INC c 3 Else set the quoted string flag. CP (HL) 3 Does it match so far? 
GSTRT: LD D,H 3 DE points to first byte of word, JR NZ, TOV 3; If not, the test is over. 
LD Esk 3 just like HL. INC HL 3 Else look at next bytes to 
GCONT: INC B 3 bump the word length counter. INC DE 3} compare, and 
INC HL 3 Point to next byte on the line. DINZ TLOOP 3 continue comparison. 
LD A, (HL? 3 and see if we are TOV: POP BC 3 TRUE comparison. Zero is set. 
OR A 3 at end of line (@@ byte). POP DE 3 Restore 
JR Z,0UT 3 If so, stop looking, jump. POP HL 3 everybody, and 
LD A,Cc 3 Else check quoted string flag. RET 3 return. 
OR A 3 If quotes present, then 3 
JR NZ, QCK 3 don’t bother checking, jump. 3 ADD VALUE IN A TO DE REGISTER PAIR 
LD A, (HL) 3 Otherwise, look for terminating 3 
CALL PUNCK+OFF 3 punctuation and ADE: ADD A,E 
JR Z, OUT 3 jump if thats the case. LD E,A 
QCK: cP 39 3 Check for terminating quote. LD A,® 
JR NZ, GCONT 3 If not found, keep looking. Loop. ADC 4,D 
INC B 3 Got terminating quote. LD D,A 
INC HL 3 Point to byte following. RET 
OUT: Ex DE, HL 3 HL gets start. DE gets end of word. 3 
INC A 3 Insure zero not set, 3 FULL CHECK...IF NO MORE SPACE, SEND MSG AND ABORT. 
RET 3 and return. ; 
3 FULLCK: PUSH HL 3 Save HL 
3 PUNCK. CHECKS FOR LEADING OR TRAILING PUNCTUATION. LD HL,LASTAD 3; Point to last possible address. 
5 LD C,B 3 BC will contain the length of 
PUNCK: CP eam LD B,@ 3 characters we want to add. 
RET z SEC HL, BC 3 Adjust HL by that length. 
cP ei LD B,C 3 Must preserve B register. 
RET Z SBC HL, DE 3; If space comp is not positive, 
cp “a7 JR C, FULLUP 3 then it won’t fit. Blow it off. 
RET Zz POP HL 3 Else OK, restore HL and 
ce r=? RET 3 return. 
RET Zz FULLUP: LD DE, NOWAY+OFF 3 Point to NO ROOM msg, and 
cP 737 JP SPILL+OFF 3; bail out of here. 
RET Z 3 
cP 7+" IGNOR: 
RET Zz Lp HL, (BUF@+OFF) ; Point to start of input buffer, 
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INC DE 3 bump the output buffer pointer, — ne 
INC HL 3 look a name length byte in table. °o ane 
LD C, (HL) 3 put name length in C and Qo= 
LD B,@ 3 zero B. BC contains name length. Q 3 Oo 
INC HL 3 Point to start of name. vu ag wd 
LDIR 3; Copy name to output buffer. Q n Lz be | 
LD Ay 3" 3 We need a colon to follow z- 8 
LD (DE) ,A 3 the name and 038 nz 
INC DE } after that vu @OQ 
LD a,*=? 3 ane Qnra s 
,"= 3 qual sign sOQ o5 
LD (DE) ,A 3 in the output buffer. Oxo = 
INC DE 3 Bump the output buffer pointer. o- a 
LD C, (HL) 3; HL will point to string length, a Q 
LD B,@ 3 so put that into BC like before. 3 
INC HL 3; HL points to start of string. oO 
LDIR 3 Move string definition to buffer. 
LD A,CR 3; Next put a carriage return 
LD (DE),A 3 into output buffer, 
INC DE 3 followed by a = 
LD A,LF 3; a line feed 255 
LD (DE) ,A 3 and one whole output line is done. 2 oO 
INC DE ; Bump the output buffer pointer, AX, 
JR LOOP 3 and continue until table ends. =C A 
DONE: LD A,@1AH 3 Seal off the buffer with an oa fo 
Lp (DE),A 3 end-of—file character. =" 4a 
EX DE, HL 3 HL points to the EOF mark. o3 ° = 
LD DE, OBUF 3 DE points to start of buffer. to) oc o 
XOR A 3 Ensure carry not set, xa tA Zan 
SBC HL, DE 3 and calculate length of buffer. fe) fe} Qo “iO 
RLC R 3; Simple means to divide the re} io Rak = co 
RL H 3 length by 128 to see how many 3 ou = = | om 
INC H 3 sectors to write to disk. ro) Oo=0 sake} 
Lb B,H 3; Put number of sectors in B. c +9 re) rome) 
WLOOP: LD C,26 ; Set up DMA address. 5 02Q6 < 
PUSH BC ; Save B o- oF 3 
PUSH DE 3 Save where we are in buffer. =J5C ) = 
CALL CPMIO ; Establish DMA address. Q50 QS 
Lb DE, FCB 3 Point to file control block. 3 3 ° 
LD CG. 21 3; Set up WRITE SEQUENTIAL function, Q 4% Qos 
CALL CPMIO 3 and write 128 bytes to disk. =) @ =. Q Q 
POP DE 3 Retrieve our DMA address. < oO Qo7 
POF BC 3; Retrieve our sector counter. > &% @ 
OR A ; Was write sucessful? > 
JR NZ,WIND 3 If not, close file, and notify. wo 
LD HL, 89H 3; Else update the DMA address eo 
ADD HL, DE 3 to point to next 128 byte block, i] 
EX DE, HL 3 which goes in DE, <= § 
DINZ WLOOP 3 and loop until sector count=@. oO 8 
WIND: LD DE,FCB 3; Point to file control block. Q 
LD o,16 3 Set up CLOSE function. s 4 
JR Z,FIN 3 and if all is well, close and end. _ 8 
CALL CPMIO 3 else close and = 3 
LD DE, DFULL 3 point to error message, a < 
BYE: LD c,? 3 set up print function, ey @ 
FIN: CALL CPMIO 3 perform function, = Fa On 
ap BBBB 3 and exit. a > —y oe 
CERR: DB *FILENAME NOT SPECIFIED$” re) @ awn 
NOTUP: DB *LNT NOT ACTIVES” Q ~ xe 2 
DFULL: DB *DISK FULL OR R/O$” 2 © a 
OBUF: DB 1AH = 7 5 
END 6 ye Q rm 
960% fe) 
aS” @ a 
Cc 
zaO c 
aonp oO CA 
Pace] 
a 
o8R = | 
200 ‘ 
awe S$ 
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ss 


INC HL ; 
XOR A 3 

LD (HL) ,A ; 

BYE: LD SP, (SAVE+OFF) ; 
; 


RET 


LNT: DB @ 


ECODL: 3 
ORG @1G2GH 3 

LDMA: DE 1AH ; 
END 


then to length of buffer. 

Load a zero there so the CCP 
wont see the input at all. 
Give the CCF his stack back, 
and return control to the CCP. 


Start of NAME TABLE. 

End of code, for computing offset. 
A safe place to read in .LOG file. 
€ CP/M end-of-file mark. 


LISTING 3. SAVLOG program 


This is the SAVLOG program that 


itions at once or 
name is required on the command line. 
recommanded but not mandatory. 


declarations instead and DB and DW. 


3 
3 
3 
3 
5 


- 286 
ASEG 
ORG 109H 
cCPMIO EQU BBOS 3 
FCB EQu @@SCH ; 
CR EQu 13 ; 
LF Equ 19 3 
START: LD A, (@BBAH) 3 
OR A 3 
JR NZ, CONT 3 
LD DE, CERR ; 
oP BYE 3 
CONT: LD DE,FCB 3 
LD C,19 3 
CALL CPMIO ; 
LD DE,FCR ; 
LD C,22 3 
CALL CPMIO 3 
CP 255 3 
JR NZ, READY 3 
LD DE, DFULL 3 
JP BYE ; 
READY: LD HL, (@@@1) 3 
LD DE, 16@3H-1A2H FY 
XOR A ; 
SBC HL, DE : 
LD AS 3 
CF (HL) 3 
JR NZ, FOUND ; 
LD DE, NOTUP 3 
JP BYE 3 
FOUND: LD E, (HL) 5 
INC HL ; 
LD D, (HL) H 
DEC DE ; 
LD A, (DE) 3 
LD H,A 3 
DEC DE ; 
LD A, (DE) ; 
LD L.A ; 
LD DE, OBUF ; 
LOOP: LD A, (HL) ; 
OR Aa 3 
JR Z, DONE 3 
LD A,’ # 3 
LD (DE) ,A 3 


This program will 
using Microsoft’s M8@. Other assemblers may use DEFB and DEFW storage 


is used to create an ASCII text file 
of all LOGICAL NAME DEFINITIONS that are currently active. 
file can be read by the LNT program to onload the entire set of defin-—- 
modified using standard editors. 


The output 


The output file— 
An extention type of .LOG is 
assemble directly 


CP/M entry point. 

Default file control block. 
Carriage return. 

Line feed. 

See how long rest of line is. 


If not zero, then filename 
was specified. Go on.. 
Else you forgot. Foint to msg, 


print it and abort. 

Point to file control block. 
Set up delete function, and 
zap the file if it exists. 
Point to file control block. 
Set up MAKEFILE function, and 
try to create it. 

If not bad return code, 
continue. Jump to READY. 
Else can*t create file, 
and abort. 

Get location of BIOS+3. 
Calculate where CALL DOOR is 
Ensure carry not set, and 

HL should point to DOOR address. 
If a 95 is not found there, 
assume the LNT is active, 
and jump to FOUND. 

If it was @5, notify that LNT is 
not active and abort. 

Pick up DOOR location found at 
HL and save in 

DE register. 

Just before DOOR is strorage for 
address of table. Pick up high 
byte and put into H and 

pick up low byte and 

put into L, so that 

HL now points to table. 


then 


notify 


then 


Point DE to start of output buffer. 


Get a byte from the table. 
If you find a zero there, 
then jump to DONE. 

Else not done, put a # 
into the output buffer, 
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20 Reasons to Buy 
dBASE Ill 


by Scott L. Patashnick 


o say that the name 
dBASE III is a little 
misleading is truly an 
understatement! There 
should be a law against 
mixing Silicon Valley and Madison 
Avenue... indeed, a much more 
conservative name like dBASE II, 
Version 3.0, would have been more 
appropriate... would have been 
more expected... and might not 
have conjured up expectations of the 
still not yet possible. But although 
dBASE III it’s not, it is a super 
Version 3.0 with a number of very 
significant enhancements making the 
nominal upgrade charge (plus the 
extra memory, dBASE III requires at 
least 256K) or an outright purchase 
of the new version a great value for 
IBM/PC and IBM/XT owners. 

I am assuming that most of you 
reading this article are upgrading you 
present version of dBASE III, so this 
won’t be a dBASE Primer... or an 
all-encompassing evaluation of the 
new version; but rather my goal is to 
provide enough of an overview to 
allow users already committed to 
dBASE II to make a decision to 
upgrade or not based upon 20 
improvements (out of hundreds that 
were made) selected by a fellow user 
(who doesn’t even own any 
Ashton-Tate stock) instead of reading 
the hype of a Madison Avenue writer 
with less than an ‘‘arm’s length’’ 
interest in pushing dBASE III. 

As a final note before starting, I 
have included after each 
improvement a short explanation of 
how the new dBASE III feature 
might impact a specific 
application. .. I have chosen a 
hypothetical inventory application to 
use for those explanations. My 
perspective in selecting the following 
improvements is based upon that of 
an experienced program developer 
writing dBASE III programs that will 
be “‘user friendly’’ for others to use. 
There have been many other note 
worthy features added to dBASE III 
for the beginning programmer or 
those of you purchasing dBASE III 
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for your own use that make dBASE 
III almost as easy to use as the 
Madison Avenue writer suggests. 


File capacity 

The maximum number of 
records per file has been increased to 
1,000,000,000 (one billion) from the 
dBASE II limit of 65,535. 
Applications with files exceeding the 
new capacity might well be a 
candidate for a minicomputer. There 
should no longer be a reason for 
having to break up or chain database 
files together because of a capacity 
limitation. Programming can now be 
done faster... using a single large 
file is faster operationally... and 
now applications addressing large 
databases are practical candidates for 
use with dBASE III. 

This means for an inventory 
program that had only 1,000 stock 
keeping units (SKU’s) with a 
quantity of 100 of each SKU (item), 
the user may now keep track of each 
item by serial number (100 items x 
1000 different items equals 100,000 
records). This makes dBASE III 
practical for inventory applications of 
manufacturers of expensive, 
serialized products/items. 


Fields per record 

The maximum number of fields 
per record has been expanded to 128 
fields (or descriptors) from the 
dBASE II limits of only 32 fields. 
You no longer have to spend extra 
programming time coding and then 
packing several descriptors into a 
single field (ie. a single field in 
dBASE II might be called CODE and 
contain 10 characters with each 
character having a special meaning; 
the data entry operator would have to 
know that the first character was the 
color code, the second character was 
the size code and so on). Data entry 
is faster and easier since each field 
(or descriptor) can now be separate; 
and 128 is a reasonable number of 
descriptors for many more 
applications that 32 was. 

Our inventory application can 


now more easily keep track of many 
more descriptive elements about a 
particular inventory item. For 
example, a manufacturing inventory 
application could now keep an 
inventory of built sub-assemblies 
with the record having a field for 
each of the components contained in 
the sub-assembly. Perhaps even the 
serial number of each component; or 
the batch number the components 
were purchased under. This adds a 
new ‘third dimension’ for more 
creative dBASE III inventory 
solutions. 


Files opened simultaneously 

The maximum number of 
database files that may be open 
simultaneously at one time has been 
increased to 10, from the dBASE II 
limit of two. Combined with the 
previous enhancement of more fields 
per record, application development 
time can be dramatically reduced for 
advanced applications since the 
amount of coding required to either 
pack multiple descriptors into a 
single field or the code required for 
switching files back and forth 
between Primary and Secondary files 
has been eliminated. Plus dBASE III 
itself can run much faster when more 
(if not all) of the files called from an 
application remain open in memory 
for the duration of the program. 

Inventory application designs 
using multiple files that were 
previously too slow to implement 
under dBASE II might now be 
feasible. A comprehensive inventory 
application might link purchase 
order, sales order entry and accounts 
payable modules with the inventory 
program. With all of these files 
accessible at one time, an operator 
query could interactively view not 
only the actual inventory on-hand for 
a specific item, but also see how 
many are on-order and how many are 
on-hold (allocated) for a pending 
order. 


Use of RAM memory 


The minimum required amount 
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of RAM memory needed has been 
increased to 256K from the dBASE 
II requirement of 64K for eight-bit 
systems and 128K for sixteen-bit 
systems. dBASE III uses the extra 
memory to dramatically reduce the 
number of overlay swaps in and out 
of memory making dBASE III itself 
operate much faster. Additionally, 
when using the equivalent of the 
dBASE II ‘QUIT TO’ command, 
there is no long delay since dBASE 
III isn’t swapped out of memory; 
rather, the ‘called program’ is loaded 
into the remaining memory space 
available. dBASE III can now 
quickly execute COM or EXE files 
directly from the command level and 
then return control to dBASE III 
when done. Depending upon the size 
of the programs ‘called’ by dBASE 
III into memory, you may require 
additional memory above the 
minimum requirement of 256K. 

The faster interaction with the 
‘called programs’ would allow our 
inventory application to be capable of 
timely calling programs that might 
poll a cash register, or an OCR 
(optical character reader) scanner, or 
a hand-held data entry unit or another 
inventory related device that would 
pass inventory data to the system for 
processing by dBASE III. 


Memory variables 

The maximum number of 
memory variables has been expanded 
to 256 from the dBASE II limit of 
only 64. The amount of memory 
space has also been enlarged to 
accomodate the additional variables; 
a new limit of 6000 bytes compares 
to the dBASE I limit of 1536 bytes. 
More data can now be manipulated 
in memory using these temporary 
variables instead of swapping 
memory files in and out of the active 
user space. 

The availability of more 
temporary memory variables allows 
our inventory program to buffer a 
greater amount of data entries (or 
changes) before writing to disk; for 
example a sales order for numerous 
items could be completely assembled 
in memory and then aborted at any 
time before acceptance with no 
consequence to the actual inventory 
data files. 


Mathematical functions 

The functions of square root, 
natural logarithm (base e) and the 
natural exponent (e) of a number 
have been added to dBASE III. 
These functions were not present in 
dBASE II. Applications previously 
requiring these mathematical 
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functions (not present in dBASE II) 
can now be considered using dBASE 
Ill... plus having these functions 
directly accessible as a dBASE III 
command is much faster than 
utilizing other ‘called programs’ to 
perform these calculations. 

More complex math capabilities 
can now be utilized by our inventory 
application; instead of manually 
setting minimum and maximum 
inventory guidelines, our system 
could now automatically set 
economic ordering quantity (EOQ) 
values and recommend orders to the 
user based upon the systems 
‘learning experience’. 


Automatic range checking 

A range option has been added 
which when used with the ‘GET’ or 
‘SAY’ commands can limit numeric 
or date entries accepted by specific 
upper and lower values. This kind of 
data entry checking could only be 
duplicated in dBASE II with a 
command file of numerous steps. 

Having a range check integrated 
into dBASE III as a command 
eliminates programming time to write 
such checks, increases the quality of 
the data entered and runs faster than 
comparable code written in dBASE II 
to perform the same function. 

Application: This feature is 
generally used to set HI-LO (high 
and low range) values for performing 
automatic error checking during data 
entry of inventory quantities or costs. 
In our example, if we had no items 
priced over $10, we could eliminate 
a data entry error of a $9 item being 
entered as $90. And if we had no 
inventory items valued under $.10, 
we could also eliminate a data entry 
error of a $.90 item being entered as 
$.09. 


Numeric precision 

The numeric accuracy has been 
increased to 15.9 digits from 10 
digits in dBASE II. 

Flexibility. Applications 
requiring accuracy beyond the 10 
digit capacity of dBASE II can now 
be addressed using dBASE III. 

Application: Our inventory 
application can now be installed in 
user environments where the total 
inventory valuation exceeds the 
previous dBASE II limit of $100 
million dollars. 


New field types 

Several new field types have 
been added to the dBASE II field 
types of N (numeric), C (character) 
and L (logical). The new M (memo) 
field type indicates a field size that is 


variable in size and is automatically 
stored in an auxillary file to the main 
database file (memo file type is 
-DBT). Space utilized by this field 
type ranges from 0 bytes (no entry, 0 
characters) to a maximum field size 
of 4096 bytes (4096 characters). 
Each memo field occupies 10 bytes 
in the master database file (file type 
.DBF). 

The memo field allows a 
variable length field to be attached to 
a record with a minimal overhead of 
only 10 bytes... yet when needed, 
up to 4096 characters are available. 
Now with virtually no additional 
programming, memo ‘tags’ can be 
attached to records for occasional 
comment or descriptive information 
that varies in length. 

A memo field could be used in 
our inventory program to contain and 
explanation of a special use for that 
item. For example a memo field for 
an inventory item of diskettes could 
list what computer systems use that 
kind of disk. Another inventory 
application might store in the memo 
area the inventory number of related 
items usually purchased together with 
the select item. 


A new procedure (subroutine) 
feature 

Up to 32 command programs 
may now be stored together in a 
single file, compared to the dBASE 
II limit of only one command 
program per command file. You may 
now store up to 32 short 
“‘subroutine-like’ programs together in 
a single ‘PROCEDURE’ file. The 
file is structured like a normal 
command file except that each of the 
subroutines must begin with the 
command ‘PROCEDURE <name>’ 
and end with a ‘RETURN’ 
command. The subroutines stored in 
this single file may then be ‘called’ 
from an executing command file with 
the ‘SET PROCEDURE’ command. 
For larger dBASE III applications, 
this feature saves valuable directory 
space (which is limited by the 
operating system). 

Our inventory application has 
the potential to re-use common 
subroutines over and over by 
different modules; for example a 
subroutine could be written to clear 
the screen and display a common 
main menu header throughout all 
modules. This ‘header’ might consist 
of a dotted line, followed on the next 
line by the program name and 
version number, followed on the next 
line by the current date and time, and 
finally followed by another dotted 
line. A variable could be imbedded 
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in the subroutine to indicate the 
appropriate module name: 


(sample subroutine to printer display) 
SAMPLE INVENTORY HEADER, Version 


Module Name Goes Here 
01/01/80 01:20:00 


Printing labels 

Mailing labels can now 
automatically be printed using a label 
format file storing the labels 
specifications including: 


Label width .......... 1 - 120 characters 
Label height ............... 1 - 16 lines 
Lines between labels ........ 1 - 16 lines 
Spaces between labels... .. 1 - 120 spaces 
Number of labels across .... 1 - 52 across 


This compares to no automatic label 
printing function under dBASE II at 
all. 


The larger mailing list 
applications that lend themselves so 
well to a database management 
system like dBASE III, can now be 
fully addressed (no pun intended) 
with an equally dynamic label 
printing capability. Gone are the days 
of writing command files to manually 
read multiple records, buffer the 
variables into memory (if you had 
enough space), and then calculating 
the print positions across the page. 

Incorporating multiple label 
printing routines into our inventory 
application can new be accomplished 
with minimal programming effort. 
Inventory information can now 
quickly and easily be printed on 
different size labels for applications 
such as pricing stickers on inventory 
receipts or shelf labels to mark 
inventory bins. Plus dBASE III will 
automatically adjust for up to 52 
labels across! 


New functions 

The ability to erase information 
on the display screen has been 
expanded to include a clear to 
end-of-line (EOL) and clear to 
end-of-page (EOP) function 
compared to the dBASE II command 
of only clear screen (ERASE). 

Using the ‘h’ command now 
allows you to specify a point on the 
screen and erase what is displayed on 
the screen from that point to the end 
of that particular line; or from that 
point to the bottom of the screen. 
Advanced custom written data entry 
routines can be now be tackled that 
will selectively erase only portions of 
the screen at a time. 

User friendly screen routines can 
now be processed faster; for example 
the previously suggested subroutine 
(the new ‘PROCEDURE’ feature) 
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used to print the ‘header’ on the 
screen could now print the ‘header’ 
only once when the program is first 
executed and then only the module 
name and time could be selectively 
erased and changed using the new 
commands. Utilizing these features, 
changes to the data displayed on the 
screen can be minimized since it is 
no longer necessary to re-display a 
complete new screen whenever only 
a small portion of the screen needs to 
be changed. 


Interactive file linkage 

Two files may now be addressed 
simultaneously in a master-slave 
relationship whereas a field selected 
in the master file becomes the index 
field in the slave file. The power of 
this new command could only be 
duplicated in dBASE II through a 
command file of numerous steps. 

The command ‘SET 
RELATION TO <variable> INTO 
<slave file with same variable 
name>’ links two open database files 
based upon a field that is common to 
both. In dBASE II terms, this means 
that you can execute a single ‘FIND’ 
in the primary file and both the 
primary file and the secondary file 
will advance to their respective 
records. It is no longer necessary to 
do a ‘FIND’ in the primary file and 
then ‘SELECT’ the secondary file 
and perform another ‘FIND’ there. 

Applying this feature to our 
inventory application, we could have 
an interactive sales order entry 
program with a database file called 
ORDERS.DBF and our inventory file 
called INVEN.DBF. Both of these 
files would have a common field 
called PART. Using the command 
‘SET RELATION TO PART INTO 
INVEN’ we could simply ‘FIND’ 
and order number in the 
ORDERS.DBF and dBASE III would 
automatically position the record 
pointer in the INVEN.DBF file to a 
record having the same PART 
number as that contained in the 
ORDERS.DBF record.The full part 
description stored in the inventory 
file could now be displayed and 
would not have to be redundantly 
stored in the ORDERS.DBF file. 


New date functions 

A new D (date) field type has 
been added; plus 8 extra date related 
functions and a 9th time feature to 
provide command level options to 
convert numeric date entries into 
their respective alphabetic month or 
day-of-the-week equivalents. dBASE 
II only had a command to read the 
current date from the operating 


system and another command to 
change or set the date. 

Cumbersome command files no 
longer have to be written to covert 
the ‘12’ in ‘12/10/80’ to the 
alphabetic equivalent of 
‘DECEMBER’. dBASE III can now 
perform this operation as a single 
command ‘CMONTH(DATE())’. 
Additionally, a new data field type 
called ‘D’ (date) has been added for 
further providing more reliable data 
entry. Dates are valiated as entered 
and can be presented in either the 

American format (MM/DD/YY) or 
the European format (DD/MM/YY). 
Using this new date field type allows 
dates to be subtracted from one 
another (to calculate the number of 
days-between-dates) or a numeric 
value may be added or subtracted 
from a date variable to computer a 
new month, day and year. The 
following list briefly describes the 
new commands assuming ‘12/10/80’ 
has been stored to DATE(): 


CDOW acoscuksteseaewe: Tuesday (calculates day of week) 
. 12/10/80 (character to date conversion) 


CMONTH . December (calculates the month name) 
DATE sg.ceeder ns se eea sine 12/10/83 (displays system date) 
DAY es omnanaciiweaarnaioweae 10 (displays day of month) 
DOW ssansct 3 (displays numeric value for day; Sunday = 1) 
DT OG «.cc0:asa,0:6 12/10/80 (date to character string conversion) 
MONTH..... 12 (displays numeric value for month; Jan= 1) 
NEAR sessed . 1980 (displays year expanded to 4 digits) 
IMS oien eecinea cameron 12:30:00 (displays system time) 


The most important aspect of a 
‘user friendly’ application is its 
ability to communicate with the user 
in the most unambiguous method 
available. To be able to quickly and 
easily display a date in the format 
“Tuesday, December 10, 1980’ is 
much more desirable and 
understandable by an operator than 
12/10/80. Use of the date fields 
within our inventory application 
could be further applied by easily 
being able to computerize the age of 
inventory items by simply subtracting 
the date the inventory was received 
from the current date. Using dBASE 
III this task is accomplished by 
merely entering “? DATE() - 
RECVDATE’ resulting in a numeric 
value indicating how many days that 
item has been on the shelf. 


Modity structure command 

The modify structure command 
now automatically renames the 
original file with the extention 
*.BAK’ and allows the new structure 
to be changed. When all changes 
have been made, the data in the 
‘BAK’ file is automatically 
appended to the new file. The 
modify structure command under 
dBASE II simple deleted the entire 
data file (without making any 
back-up first)! 
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This features eliminates the 
chance of accidently deleting a 
complete database. Additionally it 
now allows changes to the data 
structure to be made quickly and 
easily. Changing a field name in 
dBASE III takes only a few seconds, 
plus the time to append the back-up 
data file to the new structure. To 
change a field name in dBASE II 
was a major undertaking; first you 
had to copy the structure to a new 
file, then you had to change the field; 
then copy the original data file to an 
ASCII file using the SDF option; and 
finally append the data from the 
ASCII file to the new file again 
using the SDF option (plus you had 
to make sure all elements were in the 
correct physical order). 

This feature means that future 
enhancements to our inventory 
application that require additional 
data files can be quickly and easily 
added without any chance of losing 
data. Of course, since this feature 
copies data from the old file to the 
new file you should determine in 
advance that there is sufficient disk 
space for the new file. 


New ‘set unique’ command 

This feature is ‘set’ prior to 
indexing a file and will prepare an 
ordered list of records without any 
duplicates. This feature could only be 
accomplished in dBASE II with a 
command file of numerous steps. 
This option can be used to either 
perform an error testing function by 
counting the number of unique 
records in a file (which when 
compared to the total number of 
records in the file will indicate 
whether or not duplicates exist), or, 
it can be used to prepare a list of all 
the unique descriptors entered in a 
particular data field. 

The ‘SET UNIQUE’ command 
could be used to confirm that no 
duplicate inventory numbers have 
been entered into the system. A more 
practical use however would be in 
preparing reports. For example a 
report listing all of the different 
vendors from whom inventory had 
been purchased. 


New text command 

This feature is used in command 
files to simply display lines of text 
on the screen; or to print these lines 
of text on the printer. This compares 
with the rather awkward exercise of 
using the ‘?’ or ‘h’ commands 
within dBASE II. To display a block 
of text can now be done from within 
a command file by simply entering 
the command ‘TEXT’ followed by as 
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many lines of text as desired; and 
ultimately followed by the 
*“ENDTEXT’ command. All of the 
text will ouput exactly as entered 
without being ‘interpreted’ by 
dBASE III. 

Using the dBASE III ‘TEXT’ 
feature will allow us an easy way to 
implement an optional ‘on-line’ help 
function integrated into our inventory 
application. A test could be included 
in data entry modules looking for a 
‘HELP’ request from the operator. 
When detected, a help selection 
could cause a screen of text to be 


displayed (perhaps 32 ‘pages’ of 
instruction text might be stored in a 
single ‘PROCEDURE’ file). This 
would minimize the need for the 
labor intensive and costly preparation 
of a printed user’s manual by making 
our appliation with a built-in tutor 
option. 


New alias feature 

The alias command allows files 
and field names to have a second, 
alternative name. A feature of this 
magnitude did not exist in dBASE II. 


INCREASE YOUR MEMORY 
WITHOUT LOSING 
YOUR SHIRT! 


HIGH SPEED STATIC RAM BOARDS 
$449... 128K Bytes / 256K Bytes... $749 
Quantity One Prices That Make Sense 


FEATURES: 

@ Operates in excess of 138 MHz 

® Certified system ready (dynamic burn in) 

e@ Supports 8 and 16 bit data transfers 

@ |EEE 696/S-100 compatible 

@ 24 bit addressing 

e@ Address strappable to any 128K block within the 
16 meg address range 

e Extremely low power consumption 

@ Optional battery back-up capability 

@ Single +5 volt operation 

@ One year warranty 


Call today for more information... 


(603) 881-8334 


Frac onmics 


—————-7_ Ne 


11 Morning Deve Rd. @ Kingston, NH 03848 
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This feature allows files to be 
re-assigned a different name (or 
alias) within an application. The use 
of an alias is required by dBASE III 
when opening files; in fact, when 
more than one file is opened, dBASE 
III will automatically assign each file 
opened the respective alias names of 
A, B, C, D and so on (or you can 
set your own aliases). The use of a 
short alias is particularly useful in 
multi-file applications in labeling or 
identifying a file that a selected field 
is being called from. For example, if 
you opened the files 


DEMOFILE.DBF and 
TESTFILE.DBF; and both of these 
files had a field called ZIPCODE, 
the A-ZIPCODE would refer to the 
ZIPCODE from the 
DEMOFILE.DBF file, and 
B-ZIPCODE would refer to the 
cei in the TESTFILE.DBF 
ile. 

Consistency in software is 
important, yet sometimes difficult to 
achieve with a limitation of a single 
file name. Using the alias command 
it is now feasible in our inventory 
program to have all of the command 


The C Interpreter: 
Instant-C 


Programming in C has never been Faster. 
Learning C will never be Easier. 


Instant-C™ is an optimizing interpreter for the C language that can make 
programming in C three or more times faster than using old-fashioned 
compilers and loaders. The interpreter environment makes C as easy to 
use and learn as Basic. Yet Instant-C™ is 20 to 50 times faster than inter- 
preted Basic. This new interactive development environment gives you: 


Instant Editing. The full-screen editor is built into Instant-C™ for imme- 
diate use. You don't wait for a separate editor program to start up. 


Instant Error Correction. You can check syntax in the editor. Each error 
message is displayed on the screen with the cursor set to the trouble 
spot, ready for your correction. Errors are reported clearly, by the editor, 


and only one at atime. 


Instant Execution. Instant-C™ uses no assembler or loader. You can 
execute your program as soon as you finish editing. 

Instant Testing. You can immediately execute any C statement or: func- 
tion, set variables, or evaluate expressions. Your results are displayed 


automatically. 


Instant Symbolic Debugging. Watch execution by single statement 


stepping. 
reload using special options. 


ebugging features are built-in; you don't need to recompile or 


Instant Loading. Directly generates .EXE or CMD files at your request . 
to create stand-alone versions of your programs. 

Instant Floating Point. Uses 8087* co-processor if present. 

Instant Compatibility. Follows K & R standards. Comprehensive stand- 
ard library provided, with source code. 


Instant Satisfaction. Get more done, faster, with better results. 
Instant-C™ is available now, and works under PC-DOS, MS-DOS*, and 
CP/M-86*. Money back guarantee within 30 days. 

Find out how Instant-C™ is changing the way that programming is done. 
Instant-C™ is $495. Call or write for more information. 


Rational 


Systems, Inc. 


(617) 653-6194 
PO. Box 480 
Natick, Mass. 01760 


Trademarks: MS-DOS (Microsoft Corp.), 8087 (Intel Corp), CP/M-86 (Digital Research, Inc.), Instant-C (Rational Systems, Inc.) 


files designated by the first two 
letters INxxxx.PRG. As a matter of 
fact, all of the command, database, 
memory, label and index files used 
by our application should have the 
first two-letter prefix of ‘IN’. This 
makes it easy to copy programs and 
display the inventory related modules 
on a disk using the directory 
‘wild-card’ functions (ie. 
IN???.PRG, IN*.*). However, using 
a consistent name beginning with 
‘IN’ can be extremely confusing 
when identifying what function a 
module performs. This is where an 
alias simplies documentation. Within 
the inventory programs, all of the 
files used can be referenced by 
aliases making the function (or 
contents) of these files 
self-explanatory. 

The true power of this feature 
however, is in its ability to allow 
command files to be written that are 
independent of the variable names 
used with it... in other words, 
independent of the data files (and 
fields) used with it. In the case of 
our inventory application, this would 
allow command files written 
specifically for this application to be 
generically used for other totally 
different applications... with other 
data files (just referenced by the 
same aliases). 


dBASE Il conversion 

The program (CONVERT 
allows dBASE II applications to be 
converted to operate under dBASE 
III... of course some applications 
may require some additional changes 
to run more efficiently, but 
dCONVERT makes the conversion 
very enticing. In addition to 
converting the .PRG files, 
dCONVERT also makes necessary 
changes to the .DBF, .MEM and 
other file types to reflect and utilize 
ae of the enhancements of dBASE 


I have only high praise for 
Ashton-Tate’s decision to try to make 
the command set of dBASE III a 
super-set of dBASE II... thus 
allowing dBASE programs to operate 
in the dBASE III environment. This 
allows thousands of dBASE II 
programs to be relatively easily 
transported to dBASE III; however, I 
believe most of these conversions 
will only be a temporary step, since 
the enhancements described in this 
article will have a far reaching 
impact upon the very logic and 
system design aspects of using 
dBASE III to solve problems. 


Micro/Systems Journal March/April 1985 


Use of the conversion utility 
provided with dBASE III will allow 
us to immediately implement our 
existing inventory application 
(already developed under dBASE II). 
This will relatively quickly allow us 
to begin operating in the improved, 
faster and more powerful dBASE III 
setting. Going the other way, 
dCONVERT will also convert 
dBASE III files (which meet the 
dBASE TI limitations) to a dBASE II 
readable format. 


dBASE Ill specifications 

Based upon the previous 
explanations and examples of dBASE 
Ill, the following table should be 
understandable: 


File Operations: 

15 files can be open simultaneously 
(combined maximum) 

10 database files can be open at one time 
(maximum). A database file counts as 
two when memo fields are used. 

7 index files may be open per database 
file. 

1 format file may be open per database 
file. 

Numeric Accuracy: 

15.9 digits (the decimal point does not 
count in determining the numeric 
accuracy. 

Memory Variables: 

256 is the maximum number of active 
memory variables that may be used at 
one time. 

6000 bytes of memory are reserved for 
active memory variables. 


increased capabilities of dBASE 
Ill... well, the tools of the 
programmer are improving... bit by 
bit. I have to agree with the 
comments of Adam Greene (which 
are included with the dBASE III 
manual) in which he states ‘‘dBASE 
III is now the most mature, best 
performing, business programming 
language available on any 
computer.”’ 


About the author 

Scott Patashnick designs and 
directs computer system development 
for EPCO Systems Ltd., Inc., his 
family-owned group of New England 
based companies. He has authored 


several dBASE II application 
packages for small business and 
currently is installing a dBASE Sales 
Tracking and Officer Incentive 
System for banking clients with 


dBASE II Files: 

Number of records .. 1 billion (maximum) 

Number of bytes .... 2 billion (maximum) 

Record size.......... 4000 bytes per file 
512 kilobytes in memo file 


Conclusion 

In conclusion I almost want to 
thank Ashton-Tate for making their 
initial releases of dBASE II so 
limited... when I reflect on what I 


FHGLAS foes sescovsszuccays ce 128 bytes (maximum) locations in the Northeast. 
Field Sizes: have done and what other far more 
Character fields .... 254 bytes (maximum) experienced programmers have 


Date ‘R6ldS scares sess 
Logical fields 
Memo fields 


8 bytes (maximum) 
5 aeranenstere 1 byte (maximum) 
4096 bytes (maximum) 
19 bytes (maximum) 


accomplished, in spite of those 
limitations... plus the fact 
Ashton-Tate has made dBASE II a 
sub-set of dBASE III... and the 
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16 Bit Lisp and 


Prolog 


Implementations 


rolog and Lisp are the 

two main programming 

languages currently being 

used for artificial 

intelligence (AI) projects 
such as machine learning, robotics, 
and problem solving. Most AI work 
using these languages has been done 
on large mainframes due to memory 
requirements of the applications and 
the language implementations. A 
number of Lisp (see ‘““LISPing in 
Numbers’’, Microsystems, Aug. 
1983 and ‘‘Three More Lisps for 
CP/M’’, Microsystems, Dec. 1983) 
and Prolog (see ‘‘Prolog’’, 
Microsystems, Jan. 1984) 
implementations are available under 
CP/M V2.2 but these tend to be 
restricted by the 64 kbyte memory 
limitation of the 8-bit processors. 
However, there are now a number of 
16-bit Lisp and Prolog 
implementations which take 
advantage of the larger address space 
(1 megabyte) of the INTEL 
8088/8086 or of new high-speed 
processors such as the 8 Mhz 
80186). 

The new language 
implementations also provide more 
flexible and sophisticated tools 
including resident screen editors, 
graphics support, and floating point 
hardware (8087) support. All this 
makes the new Lisp and Prolog 
implementations on micros practical 
development tools for AI projects, 
not just experimental toys. 

The three Lisps being reviewed 
are IQ Lisp from Integral Quality, 
muLisp-82 from the Soft Warehouse, 
and TLC-Lisp from The Lisp 
Company (TLC). Also being covered 
is a version of Prolog called 
micro-Prolog from Logic 
Programming Associates, Ltd. Prolog 
is being reviewed with the Lisp 
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implementations because of the 
similarity in operation, 
implementation and application. 
These systems were tested on the 
8088-based Chameleon Plus (IBM 
PC compatible unit) with 256K of 
RAM and graphics support. 
TLC-Lisp, muLisp-82, and 
micro-Prolog are also available for 
8-bit CP/M systems which have been 
reviewed in previous articles. The 8 
bit implementations are upward 
compatible with their 16-bit 
counterparts. 


Documentation 

MuLisp-82. The muLisp-82 
documentation has seen a slight 
improvement over its 8 bit 
counterpart. Microsoft (distributor for 
muLisp) has added the more 
impressive green and white binder 


PROGRAM #1 


containing a professional typeset 
reference manual. information 
relating to the 16 bit version has 
been added and various corrections 
and updates have also been included. 
The table of contents and indices are 
complete and correct. 

Still, the reference manual 
retains some of the bad points found 
in the older 8-bit documentation. 
Both lack a sufficient number of 
concise examples to offset the terse 
and sometimes incomplete function 
descriptions. When describing 
functions, the muLisp-82 manual 
uses the Backus-Naur Form (BNF), 
which causes confusion. For 
example, listing 1 shows the 
descriptive syntax for the Lisp 
EQUAL function, using both BNF 
and Lisp. I prefer the latter for 
clarity and consistency. 


BNF Syntax (used in muLisp documentation) 


CBY EQUAL [X, Y] := 


ATOM (XJ —) EQ [X, YI3, 

ATOM [Y] --) NILs, 

EQUAL [CAR [X], CAR [YJ] --) 
EQUAL [CDR (XJ, CDR CY1);, 


NIL; 
Lisp Syntax 


(DEFUN EQUAL 
(LAMBDA (X Y) 


(COND ((ATOM X) 


(EQ X Y)) 
({ATOM Y) NIL) 

((EQUAL (CAR X) (CAR Y)) 
(EQUAL (CDR X) (CDR Y)) ) 
(NIL) ) ) ) 
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As it turns out, the Lisp syntax 
description is also a valid Lisp 
definition for the function and serves 
as an example of the language. 
Maybe the next version of the 
documentation will be easier to read. 
Even so, the current edition is 
usable. 

IQ Lisp IQ Lisp has no 8-bit 
counterpart. The manual (one of the 
best) is packaged in a nice blue and 
white, three- ring binder, and 
includes a great deal of information 
about the system. The information is 
well organized and well presented, 
with concise examples for each 
function definition. The section on 
internal system structure and 
assembly language interface is the 
best I have seen. It even includes a 
complete example, with 
corresponding files on the 
distribution diskette. 

The only faults are minor. The 
manual is divided into four chapters; 
a table of contents and index are 
associated with each chapter, but 
there are none for the entire 
document. Finding a particular 
function definition is sometimes 
difficult unless you know which 
chapter contains its description. A 
complete functional and annnotated 
index would solve this problem. 
Online documentation is limited to a 
list of function parameters. 


TLC Lisp The TLC-Lisp 
documentation is currently being 
revised and comments pertain to the 
new version which has just been 
completed. It is similar to the 
Thinking About TLC-Logo which 
is excellent. As with IQ Lisp, the 
amount of documentation is 
substantial because of the large 
number of available functions which 
must all be described. It is well 
presented and organized. 
Unfortunately, no online 
documentation is currently supplied. 

Micro-Prolog. The new 
micro-Prolog manuals are essentially 
an updated version of the 8-bit 
reference manual and primer which 
were very good. The best 
improvement is in the packaging. 
The manuals are now contained in 
small PC-style ring binders instead 
bound paperback books, which 
tended to become tattered due to 
heavy use. Unfortunately, a four-ring 
binder is used, so conventional 
three-ring plastic floppy disk inserts 
do not work too well. However, the 
excellent organization and content of 
the primer and reference manual 
make such a minor problem seem 
trivial. 
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This is the only package which 
can be used by itself to learn the 
language (Prolog). Exercises and 
complete answers are included in the 
primer, which can be used as a basis 
for a course on Prolog in general. 
The reference manual uses the same 
format. The table of contents and 
index are complete and informative. 

None of the packages lacks any 
essential information. It is just a 
matter of packaging and presentation. 
The micro-Prolog and TLC-Lisp 
manuals are very good; the others are 
adequate. 


Compatibility and Enhancements 

muLisp. muLisp runs under 
PC-DOS, MS-DOS, MP/M, CP/M, 
CP/M-86 and Concurrent CP/M-86. 
The 8- and 16-bit versions are 
compatible. This means that 
programs can be moved among a 
number of different microcomputers 
that can run muLisp. 

muLisp-82 is essentially the 
same as the 8-bit version, so all 
comments regarding that 
implementation hold for the 16-bit 
version also. It does not really match 
any mainframe implementation but is 
close to the original Lisp 1.5 
specification. Its quirks in handling 
conditionals, unbound atoms, and 
error conditions make transporting 
programs to other implementations 
difficult at best. It does not support 
macro’s, floating point, or data 
structures such as vectors, but 
muLisp-82 is complete enough to 
handle many applications. 

The muLisp-82 implementation 
does not include list-mapping 
functions or the PROG function 
(which is a kludge anyway), but does 
support a flexible multiple- exit 
LOOP function. A compatible 
operation can be supported on other 
Lisp systems using a Macro. Also, 
muLisp-82 does not check the 
number of parameters during a 
function call; this deficiency can 
cause problems, especially in 
debugging. 

1Q Lisp. IQ Lisp runs only on 
PC-DOS (V1.1 or V2.0), but in view 
of the vast number of PC compatible 
machines this is not really a 
restriction. There is no 8-bit version. 
IQ Lisp contains a plethora of 
features, its basis matching 
MACLISP, a mainframe 
implementation. Programs can be 
moved easily between systems, 
provided that they use only a 
common set of operations that 
excludes things such as the graphics 
support in IQ Lisp. MACRO, 
mapping functions, floating point and 


vector support are included along 
with sophisticated error handling. 
Extensions include primitive graphics 
support, multiple window text 
support and an assembly language 
interface. These tend to be unique to 
IQ Lisp in terms of syntax and 
operation. 

IQ Lisp supports the PROG 
function but allows you to hide its 
presence with a number of MACROs 
for creation of loop functions. The 
MACROs are recommended, and 
provide a much cleaner program 
interface, especially if programs are 
to be moved to other machines. Like 
muLisp-82, IQ Lisp does not check 
the number of function parameters 
during a function call. 

IQ Lisp includes a package 
support facility found on many 
mainframe Lisp implementations. 
This feature is very useful in keeping 
functions grouped together and 
organized when developing a system. 
However, it does not support 
separate name spaces. A separate 
name space is useful because it 
allows each module to be kept apart 
from modules in other name spaces. 
Suppose, for example, that there is a 
function FOO in the data base search 
package and another function FOO in 
the screen manipulation package 
which are different. We would like 
to use both packages with our 
program. No changes are required if 
separate name spaces are available 
because each FOO function is 
distinct within its own name space. 
But in IQ Lisp, you can only have 
one FOO so one of the FOOs must 
be renamed to something which does 
not cause a conflict. Unfortunately, 
the renaming requires modifying the 
corresponding package; this can be 
difficult. 

TLC-Lisp. TLC-Lisp has an 8 
bit sibling and runs on CP/M, 
MP/M, CP/M-86 and Concurrent 
CP/M-86. It is based on MACLISP 
but has a number of extensions. 
MACROs, mapping functions, 
vectors, floating point numbers and 
error handling support are included. 
Extensions include object support, a 
p-code assembler and LOGO-style 
turtle graphics. 

TLC-Lisp does not include the 
PROG function. Instead, there is a 
multiple-exit DO loop function. In 
addition, it supports tail-recursion 
optimization, which means that loops 
can be written as functions which 
call themselves. This optimization 
actually provides a more general 
solution to the problem in a cleaner 
fashion. For example, the following 
function could be used to print the 
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number | forever (not practical but a 
simple example). 
(DE PRINT-1-FOREVER () 


(PRINT 1) 
(PRINT-1-FOREVER) ) 


Running this function on IQ 
Lisp or muLisp-82 would cause the 
system to run out of stack space after 
some period of time. It would run 
forever under TLC-Lisp and 
micro-Prolog (which also has this 
optimization), and the function would 
use only one level within the 
program evaluation stack. 

TLC-Lisp supports true 
modularized programming by 
providing separate name spaces. 
Each space is named and the routines 
for entering information and printing 
it out can be setup to handle the 
different name spaces. For example, 
the data base search space may be 
named DBMS (for lack of a better 
name) and the floating point package 
space could be called FP. References 
to the DBMS function FOO would 
be written as DBMS:FOO and 
likewise the FP function would be 
FP:FOO. The references within each 
space are really to FOO but only to 
the one within the space. 

micro-Prolog. Prolog is a 
newer language than Lisp and there 
are fewer mainframe implementations 
but micro-Prolog matches these in 
terms of operation. However, it tends 
to differ in terms of syntax. The 
internal program storage uses a 
conventional Lisp list scheme for 
consistency. The internal form can be 
used directly or manipulated through 
various front-end programs that are 
supplied with the system to translate 
the list syntax into a more 
English-like syntax. For example: 


Internal Lisp Syntax 


((X is-the-grandparent-of Z) 
(X is-the-parent-of Y) 
(Y is-the-parent-of Z)) 


SIMPLE Front-end English-like 
Syntax 


X is-the-grandparent-of Z if X is-the-parent-of Y 
andY is-the-parent-of Z 


Transporting Prolog programs 
between different implementations 
tends to be easier since translation 
and pattern matching are fairly easy 
in Prolog. Also, the basic Horn 
clause structure of Prolog is retained 
by micro-Prolog. 

Basic features include mapping 
functions, floating point support and 
error handling. Extensions include 
separate name space module support 
and tail-recursion optimization. The 
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PC-DOS version essentailly matches 
the 8-bit CP/M implementation. 

micro-Prolog also supports 
separate name spaces for module 
implementation. Like TLC-Lisp, the 
names of the functions are exported 
and imported in a clean fashion and 
local function definitions do not 
conflict with those in other packages. 
This feature actually makes 
micro-Prolog more powerful than 
some mainframe-based Prolog 
implementations. 


Numbers, Strings, and Objects 

muLisp-82. All four 
implementations contain built-in list 
support. Differences between the 
various implementations occur with 
other primitive objects like numbers 
and strings. For example, muLisp-82 
supports atom names (strings) and 
infinite precision integers (not really 
infinite but close to it). Infinite 
precision integers are like variable 
length strings. The higher the value, 
the longer the string. Integers can 
have up to 600 decimal digits with 
muLisp. The character string support 
is fairly limited but the infinite 
precision integers is good. 

IQ Lisp. IQ Lisp supports a 
number of different types of numbers 
and objects. The IQ Lisp numbers 
include small integers (less than 
32767), infinite precision integers (up 
to 77,000 decimal digits!!! ), short 
floating point numbers (4 bytes), and 
long floating point numbers (8 
bytes). The floating point is 
supported both in software and on 
the 8087 numeric coprocessor (if this 
is available). Standard numeric 
functions are available plus floating 
point manipulation functions. Basic 
trigonometric functions are also 
supported. 

As this were not enough, IQ 
Lisp also supports strings up to 32K 
in length with good string 
manipulation functions. 
Multidimensional arrays are also 
included. Array types include byte, 
small integers, small floating point 
numbers, large floating point 
numbers, and pointers. This variety 
allows a programmer to optimize 
access and storage requirements. 
Arrays are dynamically allocated and 
collected like lists. 

IQ Lisp also supports special 
objects such as files and windows for 
V/O. Placing I/O support in objects 
greatly simplifies programming 
chores and leads to more structured 
programs. 

TLC-Lisp. TLC-Lisp is on par 
with IQ Lisp in terms of objects. It 
supports small integers (less than 


1024), and large integers (31 bits). It 
does not currently support infinite 
precision integers. Floating point 
support is restricted to 4 bytes but 
8087 support is automatically 
detected. String manipulation is 
superb; it includes character insert 
and delete functions, along with a set 
of search functions. The insert and 
delete functions actually shift 
characters around to accomodate the 
changes. Character replacement in a 
string is also possible. The functions 
are used by the screen editor which 
is written in Lisp. 

Only single dimension vectors 
are explicityly supported, but 
multidimension arrays could be ; 
supported by defining the appropriate 
functions. The advantage is that the 
additional multidimension support is 
not required if not used. Also, 
heterogeneous arrays are possible 
using this approach. TLC-Lisp also 
includes a number of vector 
manipulation functions not found in 
other implementations. This includes 
vector element insert, delete, and 
mapping functions. 

The number of system objects 
provided in TLC-Lisp is too large to 
list, but includes I/O file objects, 
stream file objects, windows and 
turtles. 

Micro-Prolog. micro-Prolog 
includes integers (less than 32767) 
and 6-byte decimal floating point 
numbers less than 10 to the 127th 
power. Numeric operations are 
limited to the basic arithmetic 
functions. Trigonometric or 
logarithmic functions must be defined 
by the user. Strings are in the form 
of atom names and are limited to 60 
characters. Only string comparison 
and conversion to a list of characters 
are supported. 

micro-Prolog structures are built 
from lists, so no special objects exist 
within the system. Files are 
referenced by name through special 
file support functions. Arrays are not 
supported either. 


1/0 Support 

muLisp-82. Like its 8 bit 
counterpart, muLisp-82 provides 
limited file support. Only one input 
source and one output sink may be 
selected at any one time. These can 
be the console, the printer or a file. 
This feature allows loading and 
saving information via a disk file and 
interacting with the screen, but is not 
suitable for any disk file oriented 
operations. Console support is 
limited to operations which can be 
performed by using escape 
sequences. 
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IQ Lisp. IQ Lisp is much better 
with regard to console and file 
support. Multiple files can be opened 
at one time but only sequential 
operations are available. Random I/O 
must wait until the next release. 
However, sufficient functions are 
available to build a file application 
oriented to serial transactions. 

IQ Lisp supports multiple, 
scrollable display windows on a 
single screen. The windows may 
overlap and will not obscure other 
windows. Windows are considered as 
files for the purposes of I/O 
operations. Window manipulation 
functions are provided to scroll a 
screen or change a screen’s 
attributes, size or location. Moving a 
window logically does not move the 
contents on the display. Instead, 
subsequent operations are performed 
with regard to the new settings. 

TLC-Lisp. TLC-Lisp supports 
multiple files and streams. Disk file 
access can be sequential or random; 
thus TLC-Lisp has the most flexible 
file manipulation system of the four 
tested. Random access is on a byte 
basis, and file update (read/write 
files) is possible. The stream-oriented 
files are very powerful, since they 
act as UNIX-style pipes. TLC-Lisp 
allows a function to insert 
information into a stream and be 
notified when more information is 
required. The function removing 
information from a stream does not 
know if the source is from a file, a 
string, or a generating function. 

Windows are supported in two 
fashions. One is the turtle mode, in 
which there are two windows on the 
screen. The top one is the graphics 
drawing area for the turtle; the lower 
window is the interaction window 
where text is entered and displayed. 
The boundary between the two 
windows is adjustable. The graphics 
window is overlaid by the text 
window, but any drawing done by 
the turtle is retained if it occurs in 
the obscured partition. Reducing the 
size of the text window will show 
this retained information. This type 
of operation is convenient for testing, 
since the graphic operation of the 
functions can be shown in the top 
window and the status of the 
operation is shown in the bottom 
window. The final graphic result can 
be viewed by making the text 
window smaller or deleting it 
completely. 

The second mode of operation is 
similar to that of the IQ Lisp 
windows, but is more primitive. 
Functions are available for scrolling 
regions of the screen and displaying 
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characters within a region, but the 
user must write his own functions to 
build a more general system. This 
could be done using the stream 
objects. 

micro-Prolog. micro-Prolog 
does not support multiple window 
operations but does allow multiple 
files to be used at one time. Both 
sequential and random I/O are 
supported. Unfortunately, files 
cannot be used in an update mode. 
Files must be opened for read or 
write access, but not both. Random 
file indexing is a holdover from 
CP/M. A file position is a list whose 
first element is the block number 
(128 bytes/block) and whose tail is 
the byte index within a block. For 
example, (2 1 55 ) refers to the 
55th byte in block number 2 (both 
are base 0) which corresponds to 
byte 301 in the file. Luckily, as 
shown in listing #2, it is very easy 
to define new functions which 
translate byte references to the 
( block ¢ index ) form. 


micro-Prolog also provides a 
limited number of format I/O 
operations too. This is primarily for 
fixed record size field access but can 
also be used for column aligned 
console and printer output. 


Graphics Support = =muLisp-82 and 
micro-Prolog have no inherent 
graphics capabilitIES except those 
which may be accessible through 
console escape sequences. The lack 
of graphics support is not important 
to the language unless, of course, 
you need graphics. 

IQ Lisp provides limited color 
graphics support. Colors can be 
selected and drawing functions 
include POINT and LINE. These 
functions can reference a particular 
window, too. The LINE function 
requires both endpoints as 
parameters. Circles and more 
complex figures must be drawn using 
these basic functions. 


TLC-Lisp provides LOGO-style 
“‘turtle graphics’’. This differs from 
the IQ Lisp mode of operation in that 
lines are drawn using the graphics 
cursor or ‘“‘turtle’’ as its basis. The 
turtle has a location and direction. To 
draw a line, you give the turtle a 
distance to travel. For example, to 
draw a square you would use the 
following expression. 


(REPEAT 4 (FD 100) (TR 90)) 


(FD 100) moves the turtle 100 
units in the current direction drawing 
a line as it goes. (TR 90) turns the 
turtle right 90 degrees. Doing this 4 
times gives a square. The similarity 
to Logo is a definite plus. 

TLC-Lisp supports multiple 
turtles and you can feed all turtles 
the same operation at one time, 
which means you could program 
some pretty sophisticated games. 


Resident Editors 

Each system comes with a 
line-oriented structure editor or 
screen resident editor. A screen 
editor is preferable since it allows 
you to see changes immediately. The 
best thing about all the editor 
implementations is that they are 
written in the respective systems 
language. This means user 
modifications and enhancements are 
possible. 

muLisp-82. The muStar system 
which comes with muLisp-82 is 
actually a menu-driven front end 
system that includes a screen-oriented 
text editor. The screen editor is 
adequate, but can be used only as a 
Lisp function editor. It is not capable 
of general text editing although it 
could be modified for such operation. 
The main drawback of the editor is 
that all commands must be 
memorized, since on-line help is 
available while you are using the 
editor. Also, saving a modified 
function can be a problem if the 


LISTING #2 


((TRANSLATE x ( y J 2 )) 
(INT x) 
(TIMES y1 128 x) 


(TIMES y2 128 y) 


(SUM y2 z x) ) 
((TRANSLATE x ( y 1 2 )) 
(INT y) H 
(INT z) i 
(TIMES y 128 yi) ; 
(SUM yi zx) ) H 


; make sure x is an integer 
; get number of blocks 

(INT yl y) } convert to integer 
} get number of integral blocks 
3 get byte index in block 


make sure block number is an integer 
make sure block index is an integer 
get block byte index 

add in block byte offset 
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syntax is incorrect, since muStar 
evaluates the function definition. An 
error in evaluation simply leaves you 
back in the editor with no indication 
of what problem was encountered. 
Even so, muStar has a definite edge 
over line oriented structure editors. 


1Q Lisp. IQ Lisp comes with a 
line-oriented structure editor. 
Although not as easy to use as a 
screen-oriented editor, its 
complement of manipulation 
functions is good enough to meet 
most development projects. The 
advantage of the line-oriented 
structure editor is that a syntax check 
is done at the time a command is 
entered, so that the list being 
modified is always structured 


properly. 


TLC-Lisp. TLC-Lisp initially 
had a Wordstar-like screen-oriented 
editor which is modeled after 
WordStar. Both were capable of 
editing list structures, such as 
function definitions, as well as 
normal text files. Although the editor 
is not as fully functional as a word 
processor the TLC-Lisp editor does 
serve as a good multipurpose editor. 
It is menu-driven but the menu 
consists of a single line at the top of 
the screen. With a little work, it 
could be used as a word processor so 
you could stay in Lisp to do all your 
work. 


micro-Prolog. The editor which 
comes with micro-Prolog is a 
primitive line-oriented structure 
editor. It is sufficient for function 
definition modification but you will 
probably wind up using an external 
text editor to do program 
development. 


Error Handling 

muLisp-82. Error handling for 
muLisp-82 is the same as in the 8-bit 
version, which is not very good. In 
fact, it is sometimes hard to 
determine when an error has occurred 
because of the way muLisp handles 
errors. For example, normally the 
first atom of a list which is being 
evaluated is the name of a function 
definition. An error should be 
signalled if there is no definition. 
Instead, muLisp simply returns the 
list being evaluated as the result. 
Similar results occurs with file /O 
errors and arithmetic errors. The 
tradeoff in these cases is speed - 
muLisp runs fast. But you must be 
careful when writing a program; 
errors can easily go undetected 
because a function will always return 
a value even if an error occurs. The 
basic trace functions can help. 

IQ Lisp. IQ Lisp has the edge 
on error handling especially when the 
development support system is 
loaded. In addition to TRACE and 
BREAK functions, IQ Lisp also has 
the CATCH/THROW function pair. 
This is a useful programming 
construct that can also be used to 
recover from system errors. The 
ERROR function is also called when 
an error occurs and this function can 
be defined by the user. IQ Lisp also 
provides access to the system stack 
through built-in functions. 

The high point is the 
window-oriented error monitor. This 
is invoked when an error is 
encountered that is not being handled 
by the user. In this case, the screen 
is divided into two windows. The 
larger top window is the stack 
control window, which contains the 
function being evaluated that has 


caused the error, along with other 
useful information. The lower 
window is the command window 
which can be used to modify values 
in the top window. In fact, any 
function may be invoked from the 
command window, thereby allowing 
you to change or examine values and 
function definitions. 

The error monitor also makes 
good use of the IBM PC keyboard. 
For example, the arrow keys on the 
numeric keypad are used to browse 
up or down through the system stack 
so you can see what functions got the 
system into its current state. You can 
also back up and return a value from 
a function which was evaluated 
before the one in error. Very few 
systems provide debugging 
environment even close to that of IQ 
Lisp. 

TLC-Lisp. TLC-Lisp does not 
have any equivalent of the error 
monitor found in IQ Lisp, but it does 
have all the other features such as 
CATCH/THROW, TRACE, and 
BREAK. TLC-Lisp also provides 
access to the program stack. 

micro-Prolog. micro-Prolog 
provides an ERROR function which 
is called when an error occurs. 
Unfortunately, the two only choices 
at that point are to continue 
computation or abort it completely. 
However, tracing and break facilities 
are also provided. 


TO BE CONTINUED 

The second, and concluding 
part, of this Lisp review will appear 
in the next issue of Micro/Systems 
Journal. It will discuss such things 
as: garbage collection, assembly 
language interfacing and present the 
benchmark programs used to test 
these Lisp packages. 


Coming in future issues 
of Micro/Systems Journal 
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Loadable Drivers for CP/M2.2 
Build an S-100 Bus to PC-Bus Converter Board 
Building a PC Clone for Under $1K 
Structured Programming With the M80 Assembler 

Use the Persyst Time Spectrum with Concurrent CP/M 
PL/I-80 & RMAC Patches 
Bringing Up CP/M-68K 
Installing ZCPR3 


and lots more... 
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For $100 bus by S. C. Digital, Inc. 


MODEL 256KM 256 K/1M DYNAMIC RAM Board Model 256KM $995 

© 256K/1M bytes using 64K or 256K DRAMs @ 8/16b data @ 24b Address 
© Parity per byte @ 175nsec access time @ will run Z80/Z8000 to6 mhz, 8086, 
80186, 68000 to8mhz without wait states @ transparent refresh, unlimitted DMA 


@ with 1MB using 256K drams. 


256K/1M DYNAMIC RAM Board Model 256KB-256 $459 

@ 256K/1M bytes using 64K or 256K DRAMs @ 8bdata @ 16 or24b address 
© parity per byte © Memory mapping in 16K blocks @ 175 nsec access time @ 
Addressable in 128k, 192k, or 256k boundaries, compatible with Z-100* systems 
® with 256KB using 256K drams, expandable to 1 mega byte, less memory map- 
ping @ add $20 for memory mapping. 


FLOPPY DISK CONTROLLER Board Model FDC-1 $395 

@ Single or double sensity, sides, in any combination of up to four8” or 514” drives 
® Digital phase-locked loop @ DMA data transfer with cross 64K bountaries, 24b 
address, DMA arbitration @ built in monitor/boot EPROM that accomodates two 
different processors @ serial port to 19.2Kbaud @ uses 765A/8272 @ with 
CPM bios programs 


8086 CPU Board Model 8086 CPU $425 

@ 8/4 mhz SW selectable @ 8087 interface @ provision to fun two processors 
on a bus such as our Z80 CPU @ convertable to10, 12mhz clock @ optimized for 
DRAM boards. 


80286 CPU Board Model 80286 from $350 

@ 8/4 mhz switchable @ 80827 interface @ provision to run two processors on 
abus © convertableto8mhz @ separate built in colck for80287 @ optimized for 
DRAM boards. 


S.C. DIGITAL, INC. 
1240 N. Highland Ave., Suite4 @ P.O. Box 906, Au 
Phone: (312) 897-7749 


BUFFERED I/O BOARD Introductory Price * $59.95 
With despool functions, protocols supported: XON/XOFF, ETX: ETB/ACK 
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Serial 1/0 
110-19200 Baud 


SER 


2K Program EPROM 
Programmable Functions 
Dynamic Buffering 


$-100 Interface 
16 Bit 1/0 Addressing 


Vectored 
Interrupts ] 


80 CHARACTER VIDEO BOARD 
25 Lines with status, compatible with Wordstar & dBase 


* $49.50 


e 
2716 Char. 
Generator 
EPROM 


2716 a 
Character 
a EPROM 


Keyboard 
Parallel 
Port 


| 
| 


Composite 


8275 CRTC 
Reverse Video 
Highlight, Blink 


S-100 Interface 
8 Bit 10 
Addressing 


2K Program 
EPROM 


Memory 
Mapped I/O 


Includes Bareboard, Heatsink & Documentation Call or write for more information. 


i 


f, 1260195 
(312) 359-7337 : 
OEM desler cing avaiable, $0 SIM I es, a 77 1 aS 


SUPPORT Board Model Support-1 $425 

© 4 serial, full handshakes, two with software programmable baud rates @ Cen- 
tronics @ SASI interface @ Real/interval times @ Calendar-clock with battery 
backup @ expandable interrupt controllers for 8086 or 8080/Z80 @ CPU switch- 
ing to run 2 processors on a bus such as our 8086 or 80286 and Z80 CPU 
boards. 


1/0 Interface board Model3SPC-N $229 
@ 3 serial RS-232C with switch selectable baud rates, 110 to 19.2kbaud. 
@ 1 parallel. 


Board Sets: 8086, 256KM (with 512KB), FDC-1, 3SPC-N 
780, 256KB-256, FDC-1, 3spe-N $1150 


$1388 


$100 COMPUTER ‘System16’ $3200 

8086 based at 8mhz, with512kb, 5 serial ports, 1 centronics, 1 SASI, battery backed 
calendar clock, real time clock, interrupt driven, 10 slot card cage, two 5.25” floppy 
drives with500 kb transfer rates and 1.2 mbyte storage each, with CPM 86 operating 
system (Concurrent Dos available soon). Cabinet has room for full size 514” 
hard disk. 


Operating Systems available. CPM 2.2, CPM 3.0, CPM 86, MSDOS. 


*CPMis registered trade mark of Digital Research Inc. Z-100 is registered trade mark 
of Zeith Corporation. 


Please call for latest prices. 
Prices subject to change without notice. 


rora, Illinois 60507 


NEW PRODUCTS 
IAL ADAPTER FOR THE VDB-A2- 


Plugs into keyboard socket 


Direct connect to Keytronic (IBM) serial 
ASCII keyboard 
Internal speaker for BEEPER 


Tx port for non VDB-A2 use 


Hardware programmed Rx & Tx 
Dual baud-rate generator 
Bare-board OR assembled 


DOUBLE-HEIGHT S-100 PROTOTYPING- 


Oversized heatsinks for Hl-CURRENT 
reg’s: +5, +/-12V. 

Use with wire-wrap sockets OR direct 
solder connections 

GOLD plated e ae connector 

NO PLATING CUTS required 

NO wasted address decoding 


WATCH OUR ADS FOR 


OTHER PRODUCTS COMING SOON 


MODEM. ADAPTER FOR THE BIO-1 
256K RAM SOFTWARE FOR BIO-1 
HIGH FEATURE DISC CONTROLLER 
Z80 C.P.U. / MEMORY MANAGER 

1 MEGABYTE DRAM BOARD 


Specifications subject to change without notice 


Software Review 


dataCURE 


Protecting your valued diskettes 


uppose you’re doing 
some housecleaning on 
your word processing 
diskette when... oops! 
You deleted one file too 
many and wiped out 
WordMangler (your fa- 
vorite word processor). 
No problem, you think. You’ll just go 
fetch the master copy down from the 
shelf and be back in business faster than 
you can say “PIP”. You pop the master 
diskette into your drive, try to log it in 
and much to your chagrin, you see: 


BDOS error on B: bad sector 


Who among us hasn’t at one 
time or another had a day ruined by 
the appearance of this infamous bit 
of CP/M-ese? Or let’s say that just as 
you are about to remove some 
one-of-a-kind diskette from your 
drive, your pet dachshund decides to 
jump into your lap, simultaneously 
knocking the computer’s plug out of 
the wall. You keep your fingers 
crossed as you plug things back in 
and reboot, but once again, CP/M 
informs you that the disk in question 
has been rendered unpalatable. 

These are but two of many possible 
ways that you can loose a valuable file, 
with the accompanying loss of time and 
money to replace or reconstruct it. 
Now, everyone knows that there’s no 
substitute for keeping backup copies of 
critical data, but what do you do when 
your backup goes bad? A firm called 
Colorado Online believes they have 
found one possible answer in their soft- 
ware product, called ““dataCURE.” 


What is dataCURE? 

dataCURE is a method of protect- 
ing your valuable diskettes, so that if 
part of the diskette’s contents is de- 
stroyed, it may be reconstructed using 
the part that is left. A disk that has been 
protected by dataCURE contains addi- 
tional data that allows the program to 
recover the data that has been lost. 
dataCURE will recover files that 
have been lost by overwriting, as 
well as data lost due to hard media 
errors. Recovery is possible even if 
the directory area has been damaged. 
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To protect a disk with dataCURE, 
one must first start with a freshly-for- 
matted blank diskette. The disk is then 
processed through dataCURP’s initial- 
ization procedure, which reserves space 
for the protection files needed by 
dataCURE to perform its recovery 
functions. The protection files occupy 
about 5% of the total diskette space. 
Once the diskette has been initialized, 
you may then use PIP or some other file 
copy utility to add the files to be protect- 
ed. You then run dataCURE’s “pro- 
tect” function, which constructs the ac- 
tual protection tables and stores them in 
the previously allocated space. The 
diskette is now protected and may be 
stored away until needed. 

When you need to use the protected 
disk, dataCURE’s “‘verify’’ function 
will allow you to verify that no data has 
been modified since the “protect” func- 
tion was last executed. If an error is dis- 
covered, you may then choose one of 
several available methods to recover the 
lost data. Recovery may be performed 
on the original erroneous disk, or you 
may use dataCURE to copy the defec- 
tive diskette onto a good working disk- 
ette, and then perform the recovery 
steps there, without affecting the 
original. 


Using dataCURE 

dataCURE is delivered on a single 
diskette, along with a loose-leaf note- 
book containing the documentation. 
The notebook is divided into sections 
entitled “Release Notes”, “Contents,” 
“TIntroduction,”’ “Tutorial,” ““Refer- 
ence,” and “General Notes.” The Intro- 
duction gives general information on 
the program’s capabilities and advan- 
tages. The Tutorial walks the user 
through installation and checkout of 
dataCURE on a particular system. Dur- 
ing the course of this checkout, the user 
will verify the release diskette (which 
come dataCURE protected, of course) 
and create and recover from a variety fo 
typical errors. The Reference section is 
exactly that: a reference guide to the 
program, indexed by command name. 
General Notes gives some additional 
hints on protection, recovery and good 
working habits. The Release Notes sec- 


by Bruce Ratoff 


tion gives you a place to store the occa- 
sional update notices sent out by Colo- 
rado Online to its registered users. The 
documentation is attractively packaged 
and arranged, well organized, and com- 
plete without being cumbersome. All in 
all, an excellent job. 

The program may be run in several 
ways. The simplest is to simply invoke it 
with no arguments by typing the com- 
mand ‘‘DC”’ at the CP/M system 
prompt. dataCURE then loads and 


presents you with the following menu: 
1 - HELP 5 - CORRECT 
2 - INITIALIZE 6 - REPLACE 
3 - PROTECT 7 - DUPLICATE 
4 - VERIFY 
Functions may then be selected 


from this menu by typing either the 
function number or the first letter of 
the function name. The user is then 
prompted for which drive to use and 
whatever other information is 
required by the particular command. 
Whenever the drive selected is the 
same as the dataCURE was loaded 
from, the user is given the 
opportunity to swap diskettes before 
the requested function is actually 
performed. This makes it possible to 
access all dataCURE features in a 
single-drive environment. 

Once the user gains familiarity with 
the program, the menus may be skipped 
by entering the drive and function de- 
sired on the CP/M command line. For 
example, “DC B‘ /I’” would mean to 
initialize the diskette in drive B:. This 
also makes it possible to put dataCURE 
commands into a SUBMIT file. 

The seven dataCURE commands 
perform the following functions: 

HELP: Puts up a one-page summa- 
ry of commands and functions. 

INITIALIZE: Readies a blank 
diskette for use by reserving the space 
needed to store dataCURE’s protection 
tables. 

PROTECT: Reads all active data 
on the diskette and fills in the protection 
tables to reflect the diskette’s present 
contents. 

VERIFY: Compares the diskette 
contents to the protection tables, verify- 
ing that the diskette contents have not 
changed since the last PROTECT func- 
tion. was executed. 
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CORRECT: Scans the diskette for 
errors and attempts to re-write any erro- 
neous disk sectors in their original place 
on the disk. This is the normal way of 
fixing errors where no hard media er- 
rors exist. 

REPLACE: Scans for errors and 
corrects them by moving the affected 
data groups to a different area of the 
disk. The erroneous groups are then 
locked out by allocating them to a dum- 
my file called the “junkyard.” This is 
one method of recovering a diskette that 
contains several “hard” media errors. 

DUPLICATE: This function will 
copy the complete track-for-track con- 
tents of one diskette to another. Sectors 
containing hard media errors are by- 
passed. This creates a disk containing 
only “soft” errors, which may then be 
recovered using the CORRECT func- 
tion. Another advantage of this feature 
is that the original diskette remains un-’ 
altered, since all recovery work is done 
on the copy. 


How well does it work? 

During the course of my testing, I 
tried a number of means of creating disk 
errors. These included using a sector- 
patch program to dliberately wipe out 
the directory, parts of the protection ta- 
bles, and other random parts of the disk. 
I also tried running a magnet over part 
of my test disk. In the latter case, the 
disk could no longer be logged in by 
CP/M. After copying the diskette with 
the DUPLICATE function to eliminate 
the hard errors, dataCURE had no 
trouble recovering the lost data. 

In most test cases, the program per- 
formed flawlessly, recovering all miss- 
ing data. The only time it failed was 
when massive portions of the data had 
been destroyed. The author claims that 
the recovery techniques employed are 
tailored to the most commonly occuring 
disk errors, those affecting a small 
group of neighboring tracks and sectors. 
The claimed theoretical maximum 
number of bad bytes recoverable on an 
8” double-sided double-density diskette 
is about 8K. The protection tables are 
stored redundantly on the innermost 
and outermost protions of the diskette, 
so that if an error occurs inside the pro- 
tection table, the alternate copy may be 
read to recover the protection 
information. 


Conclusions 

dataCURE is a well-written, well- 
documented product that provides an 
additional measure of security for your 
critical diskettes. It does not eliminate 
the need for backup copies, but it fur- 
ther ensures that those backups will be 
readable if needed. You may even find it 
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INTRODUCING THE LATEST IN 
HIGH QUALITY PRODUCTIVITY TOOLS 
FOR MICROCOMPUTER SOFTWARE 
DEVELOPERS AND PROGRAMMERS 


{SET} Tools — 


e Operate on most popular MS-DOS and CP/M systems. 
° Can be used with any source language. 

¢ Improve development productivity. 

e Provide assistance for the tedious task of maintenance. 


{SET:DIFS}™ Source File Comparator 


e Fast, smart and accurate 

¢ Use for regression testing, too 

¢ Difference display highlighting 
A/P/L Options available as add-ons to {SET:DIFS} to provide for minimized 
communications with the ADR or PanValet mainframe librarians or with {SET}’s Batch 
Line Editor, {SET: LIKE}. $20.00 per option 
{SET:LIKE} add-on to {SET:DIFS}. $40.00 


{SET:GXREF}™ Cross Reference Utility 


e Supplied parameter files allow use of any source language 
¢ Cross references multiple files at once 


{SET:PATCH}™ Object File Editor 


© Quickly apply changes to any file type 
e Hexadecimal and ASCII display and change entry 
e Easy to use with cursor and function keys 


{SET:SCIL}™ Source Code Interactive Librarian $349.00 
¢ Maintains history of changes 
e Reduces storage by identifying differences from level to level 
e Provides control over concurrent development efforts by detecting 
overlapping changes 
PC-Demo Disk and Manual available for $35.00 


$139.00 


$79.00 


$79.00 


{SET} Tools are available individually or, better yet, 
select a combination of tools to meet your specific needs. 
Multiple copy discount available. 


Get {SET} for Success 
{SE \ System Engineering Tools, Inc. 
645 Arroyo Drive * San Diego, CA 92103 


COD, Check with order, Master Card or VISA accepted. 


To order {SET} tools or for more information, call 
(619) 692 9464. 


System Engineering Tools, Inc. 


use ful to dataCURE-protect your day- 
to-day working diskettes at the end of a 
lengthy session. In this way, you may 
not need to resort to your backup copy 
for most errors. Software vendors 
would also do well to consider adopting 
a protection method such as 
dataCURE. This would increase the 
chance of a release diskette surviving its 
travels from the software manufacturer 
to the end user. 


dataCURE is priced at $104 (price 
includes shipping) for 8” disks, or $99 
for New Jersey residents. It is also avail- 
able on popular 5'/," formats for $114. 
For further information, contact: 


Colorado Online 
40 Balfour Lane 
Ramsey, NJ 07446 
(201) 327-5155 
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THE WORLD'S FASTEST 


S-100 Z-80 SLAVE PROCESSOR —) > are CaS 
TurboSlave I _ 


e 8 Mhz Z-80H e 128k Ram with parity 
° ¢ 
Data transfers to 1 e 2 RS-232 Ports. Public Domain Software 
mbyte/second 50-38.k baud 


$100 IEEE-696 compatible e F.I.F.O. communications Copying Company 


4k Monitor rom e On board diagnostics 
est. 1983 


Low parts count e Low power consumption 
brief Catalogue & Sample Disk (2 sided) $12 


No paddle boards e TurboDOS compatible 


GUARANTEED COMPATIBLE WITH ALL S-100 SYSTEMS 
RUNNING TURBODOS 


INTRODUCTORY PRICE $495 


Includes TurboDOS drivers (a $100 value) and 
TurboSlave | with 128k ram. 


Vea 
a 


P.O. Box 8067, Fountain Valley, CA 92728 
TELEX: 910 997 6120 EARTH FV 


PC-DOS MS-DOS © 


ALSO 


CPM/UG APPLEIlr SIG/M 


N.Y.C. 10038 


COMMODORE, 


33 Gold Street 34 


212-732-2565 
please: Overseas include Post.—N.Y. incl tax—Prepaid Only 


© copyrights acknowledged 


FOR MORE INFORMATION AND QUANTITY DISCOUNTS 
CALL: (714) 964-5784 
Registered trademarks: Z-80H, Zilog Inc.; TurboDOS Software 2000, Inc. 
*** IBM PC VERSION COMING SOON *** 


Indexed File Manager 


using 
$75°° 
B-Trees 22. 


The Tools 
S You Need 
To C You Thru. 


Now the %a:d%au" Applications Programmers Toolkit provides 
everything you need to increase your C programming productivity. 
APT" features include: 
@ COMPLETE SOURCE CODE (over 5000 lines!) 
® File handling with direct & keyed access 
@ Screen and Report Generators, with full screen handling for your programs 
® Generic Terminal Driver for portable code 
@ String math functions, and string manipulation routines 
© Reference Manual on Disk (over 50 pages) 
© Tutorial Manual (over 25 pages) with Source for Mailing List Manager 
© A host of useful Utilities, Database and File Editors 
@ Available for Lattice C, Mark Williams C, DeSmet C, BDS C, others. 


Also Available: C-‘STARTER Toolkit, great for learning C!! Includes: Customized 
APT, DeSmet C Compiler, and “Programming in C on the IBM-PC” (200 pages) 
APT/MS-DOS versions ............. 00 e ecu eee eee eee 


APT/DeSmet C version ...............ceseeeeee 
APT/BDS C vernon sc rasasnewoinaewatecae snares 


thea! 
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C Programmers, we provide the record handling that 
C left out. 


The SOMfOCUS BTree library is a record oriented function pack- 
age that uses balanced BTree indexing for guaranteed fast 
access. Add our functions to your C library and greatly reduce 
application development time. 


e High speed keyed and sequential file handling. Up to 
16.7 million records per file. 

e Source code supplied; conforms to K&R standard to 
ensure portability. 

e Noroyaities on application programs. 

e Documentation and example programs included to help 
you use BTrees. 

e Full feature product at a fraction of the cost of 
competing BTree software. 


Join the growing number of satisfied programmers using 
BTrees. 


De ee — | 


a 


T/A ONG ioc, ciacnsyqajarc <icpntapnjayoieicveraiarauyeisiersiiie 
**Detailed Brochures on request** 
*Manual Cost will be applied if APT purchased within 
30 days ($10 re-stocking charge.) U.S. funds only, please. 
Larios Dewcae Mark Wiliams Co. Defimet CC Ware. CI 


‘Trademar (£86 /Computer Innovations. ine. IDS C/BD Software, 


ka: MS DOBMMcrosett, . 
DR-C/Digital Research, WisardWare, APT, C-Starter Shaw > American 


Call (502) 583-5527 

Ask for APT™ or C-Starter, or Send Check to: 
Shaw >: American Technologies 

830 South Second St. - Box 648 rr % 

Louisville, KY 40201, USA S 


(C.O.D. and Foreign Orders - Add $5 Shipping/Handling) 
References: Bank of Louisville, Citizens Fidelity Bank, Louisville Chamber of Commerce 


(Thame Tay SS eet a << ) f 


To order call 


1277 Pallatine Drive 
Oakville, Ontario L6H 121 
(416) 844-2610 


Credit cards accepted. Dealer Inquiries invited. 
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ENGINEERING SOFTWARE 


CPM-80 * MSDOS * TRSDOS *¢ PCDOS* 


Free Catalog and Signal Processing Booklet 


Professional — Affordable 


PLOTPRO — Scientific Graph Printing Program $49.95 
ACNAP2 — AC Circuit Analysis Program $69.95 
DCNAP — 0C Network Analysis Program $59.95 
SPP — Transient Signal Processing $59.95 
PCPLOT — Pixel Resolution Graphics Program $59.95 


*96 Computers and formats, 8087 Co-processor versions of 
ACNAP2, DCNAP, SPP available for $10.00 more. 


Bt Engineering 


Professional Software 
2200 Business Way, Suite 207 © Riverside, CA 92501 
(714) 781-0252 


with high-performance software 


Poor Person Software 


Introduces 


Write-Hand-Man 


Desk accessories for CP/M 


Write-Hand-Man lets you take notes, check phone 
numbers, make appointments, and countless other tasks 
without leaving Wordstar, dBase, Multiplan, or any other 
application. Enter Write-Hand-Man with a single key- 
stroke and choose the program you want. When you 
leave Write-Hand-Man, your application continues 
normally. 


$49.95 plus tax delivers Write-Hand-Man and 4 
companion programs; Notepad, Phonebook, Calendar, 
and Termcomm. User written programs are easily added. 
All you need is M80 or some other LINK-80 compatible 
assembler. 


Other CP/M products available from Poor Person Software: 
Poor Person’s Spooler ($49.95), Poor Person’s Spelling Checker 
($29.95), Poor Person’s Spread Sheet ($29.95), Keyed Sequential 
Files ($39.95), Poor Person’s Menus ($29.95), aMAZEing Game 
($29.95), Window System ($29.95), Crossword Game ($39.95), 
Mailing Label Processor ($29.95). Shipping included. 


All products available on IBM 8 inch and Northstar 5 inch disks. Other 5 inch 
formats add $5 handling charge. No credit cards. 


Poor Person Software 
3721 Starr King Circle 
Palo Alto, CA 94306 
tel 415-493-3735 


CP/Mis a registered trademark of Digital Research 


TIMES FASTER! 


SuperFast Software Development Tools 
INCREASE YOUR PROGRAMMING EFFICIENCY 


development products from SLR Systems. 


No other tools approach the speed or flexibility of the SLR Systems line. 


“Z80ASM is an extraordinary product...”, 
Robert Blum, Sept. 84 DDJ 


ASSEMBLERS 


RMAC/M80 macros @ Math on external 
Nested INCLUDES & words and bytes 


conditionals e Define symbols from 
e 16 char. labels on console 
externals e Generate COM, HEX, 
© Built in cross- SLR-REL, or Micro- 
reference soft-REL files 
© Optional case © Time & Date in listing 
significance © Over 30 configure 
Phase/dephase options 


Z80ASM -full Zilog Z80 ................. $125 

NEW! Z80ASM+¢ -all tables virtual .............. $195 
NEW! SLRMAC -full Intel 8080, with 

Z80.LIB extensions internal ........... $125 

NEW! SLRMAC+¢ -all tables virtual ............. $195 


Z80 CPU, CP/M compatible, 32K TPA required. 
“Z80ASM...a breath of fresh air...”, 


P Computer Language, Feb. 85 
o= 
au) C.0.D., Che 


ck or Money Order Accepted 


“ain two words, I'd say speed & flexibility”, 
Edward Joyce, Nov. 84 Microcomputin 
g 


LINKERS 


e Links SLR & M80 e Three separate 


format files address spaces 
© Output HEX or COM e Load map and 
file SID/ZSID .SYM file 


SLRNK¢+ includes: 

e All tables overflow to 
disk 

e HEX files do not fill 


Works with 
FORTRAN & BASIC 
Generate PRL & SPR 


unused space files 
e Intermodule cross- e Supports manual 
reference overlays 


e EIGHT separate e 


address spaces 


Full 64K output 


SLRNK -fastest memory based 
NEW! SLRNK+ -full featured virtual 


Combo Paks available from $199. - $299. 
For additional information contact SLR Systems 


1-800-833-3061, in PA (412) 282-0864 
1622 N. Main St., Butler, PA 16001°+ Telex 559215 


L R__Systems 


Here's what Microsystems had to say about 
our original product: “QBAX will probably 
become one of those legendary programs that 
everyone eventually buys. It performs a func- 
tion useful to anyone with a CP/M system, 
does it well and quickly, is understandable to 
the novice computer user." 


“Every time you run QBAX, the program 
determines which of your disk files has been 
changed since the last time it was run. Then it 
copies these files, and only these files, to 
whatever disk you specify. This is called 
incremental backup, and is the backup 
method of choice on most large timesharing 
systems. It will work on any or all active user 


©1983 by Ziff-Davis Publishing Company 


Amanuensis, Inc. 

R.D. #1 Box 236 
Grindstone, PA 15442 
(412) 785-2806 


Qbax TM Amanuensis, Inc. 
CP/M Registered TM Digital Research 
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The following selected books can be ordered thru 
Micro/Systems Journal. We furnish these titles only 
because we feel they are very worthwhile publications. 


Interfacing to S-100/IEEE-696 Microcomputers by 
Sol Libes and Mark Garetz. The definitive book on the 
subject. Also has great application to hardware interfacing 


in general. $17.95 (US. Can. Mex) 
$27.95 (other foreign) 


The 8086 Book by Russell Rector & George Alexy. 
Probably the most comprehensive reference book on both 
software and hardware for the 8086 and 8088. Packed 
with lots of program and circuit examples. 
$19.95 (US. Can. Mex) 
$29.95 (other foreign) 


68000 Assembly Language Programming by Gerry 
Kane, Doug Hawkins & Lance Leventhal. A reference 
and how-to book with a wealth of fully debugged 
programming examples. Includes assembler conventions, 
1/O device programming and interfacing. 
$19.95 (US. Can. Mex) 
$29.95 (other foreign) 


The Programmer’s CP/M Handbook by Andy 
Johnson-Laird. A comprehensive reference on CP/M’s 
internals, file system, CCP, BDOS BIOS, etc. Examples 
of CP/M customizing and utilities written in C are given. 
$22.95 (US. Can. Mex) 
$32.95 (other foreign) 
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THE LEGENDARY WAY TO SOLVE YOUR BACKUP PROBLEMS 


areas, and so is an absolute must for hard- or 
RAM.-disk owners.” 


Announcing a major enhancement, Qbax2, 
specifically designed for hard disk users: 

@ incremental backup by extent @ splits files 
larger than one floppy # smart restore: knows 
exactly which floppies to mount. Can restore 
individual files or wildcards # volume space 
recovery: prevents consuming floppies 
endlessly when the same files are backed up 
repeatedly. @@ time & date stamp & version 
number on all backup records. 


Qbax2 is $95. For floppy disk users Qbax] is 
still available at $40. 


For CP/M 2.2 on 8” SSSD 
& popular 5%” formats 
MC, Visa accepted 

OEM inquiries invited 


Shipping: 
$2 U.S. & Canada, $4 overseas. 


SUONSNSUNSNSNSNSNSNSNSNSNSNSNSNSNSNSNSNSNSNSNSNSINSINSNSNSNSN@iSiei@n@ie@ie@iene 
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THE BOOK MART 


The following books, by Dave Cortesi, are among 
the best books on CP/M and contain many programming 
examples. They contain a great deal of info on 
installation, use of command sequences, file handling, 
directories, etc. And comprehensive reference sections are 
also included. 


Inside CP/M” 
Inside CP/M-Plus 
Inside CP/M-86” 


$27.50 (US. Can. Mex) 
$37.50 (other foreign) 
$19.95 (US. Can. Mex) 
$29.95 (other foreign) 
$18.95 (US. Can. Mex) 
$28.95 (other foreign) 
Inside Concurrent CP/M 

$18.95 (US. Can. Mex) 
$28.95 (other foreign) 


Send check for full amount (NJ residents include 
sales tax). Shipping is included in price. Professional 
books may be tax deductible. All checks must be payable 
in U.S. funds by a U.S. bank. If billed to a firm or 
institution add $5.00 and include a Purchase Order 
Number. All books will be shipped within 2 weeks of 
receipt of order. 

Mail to: 

Micro/System Journal 
Box 1192 
Mountainside NJ 07092 
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We Explain Software Packages, 
Then We Teach You How To Use Them. 
User’s Guide is the Magazine of Tutorials. 


User’ "| 
SSIS Guide 


MailMerge ass 
MODEM? 


‘*’..worth more than it costs. 
Jerry Pournelle, BYTE 


Writing Toots 


Typesetting 


User’s Guide® magazine helps you use CP/M® and MS-DOS® application software on your 
personal or multi-user computer. For the low cost of a magazine subscription ($21), you get 
six issues stocked with tutorials and software evaluations ($4.50 each on the newsstand). 
No fluff, just direct, readable “how to use” information for users of computers that run 
CP/M software. 


If you have a CP/M or MS-DOS computer, you need to know where to find good software 
and accessories. User’s Guide has in-depth evaluations of commercial and free public 
domain software, so that you can choose the best buy. 


Don’t spend hundreds on training packages. User’s Guide teaches you how to use the 
most popular programs on the market, such as WordStar®, SuperCalc®, dBASE II® and 
Modem/7. You learn at your own pace. 


Editors Tony Bove and Cheryl Rhodes are the acclaimed writers of several computer books 
on CP/M and WordsStar. Contributing editors and columnists include other great writers 
who use computers extensively, such as Arthur Naiman, Steve Rosenthal, Jonathan Sachs 
and Kelly Smith. The writing is crisp, intelligent and informative, without an overuse of 
jargon. 


User’s Guide also keeps up with the changing personal computer market, with informative 
articles about communicating with other systems and transferring programs and data. 


NO RISK OFFER: 


Try User’s Guide today. Fill in your name and 


Indicate Offer and Length of your User’s Guide subscription: 


address on the card next to this ad. Check the box Take Advantage of the Low Price Or, try our no-risk bill-me 
marked “bill me” and drop in the mail; if you don’t for Enclosing Payment Now! offer and cancel if not satisfied! 
like the first issue, write “CANCEL”. on your bill and Ol enclose $21 for 6 issues O Bill me $25 for 6 issues 

O | enclose $40 for 12 issues O Bill me $45 for 12 issues 


keep it (or better yet — pass it on to someone who 
can use it). If you think you'll want it, save $3 and 
send in your payment with the card or coupon. 


C Foreign: (prepaid US $$): Canada & Mexico $27/six issues, overseas $40/six issues (airmail). 
Payment by charge card: © Visa © Mastercard Exp. date 


Card # Interbank # 


Try User’s Guide as a training tool. Make your 


computer investment profitable. Signature required: 


Name 


User’s Guide 
P.O. Box 5245 


Redwood City, CA 94063 


Company 
Address 
City, State, Zip 


O1 Check if you do not want promotional mailings 
Make checks payable to User's Guide. Offer expires 12/31/85 
Subscription Dept.: P.O. Box 5245, Redwood City, CA 94063. 
Please allow 6-8 weeks for processing. 


UG 13ad 


* User’s Guide is published by TUG Inc., with no strings attached to manufacturers or software distributors 


User's Guide is a trademark of TUG Inc. CP/M is a registered trademark of Digital Research, Inc. WordStar is a registered trademark of MicroPro Intl. SuperCalc is a trademark of Sorcim. dBASE II is a trademark of 
Ashton-Tate, MS-DOS is a trademark of Microsoft 


Building an IBM-PC 
or XT Clone 


n the early days of personal 
computing it was quite fashion- 
able to build your own system 
from various component parts. 
The reasons were normally for 
economy, experience, and the lack of 
availability of a packaged system. 
There was of course a certain pride of 
accomplishment in those days to see an 
‘‘A>’? prompt come up on the screen. 

But time waits for no man. Ina very 
short period of time, the hacker- 
dominated personal computing field 
gave way to the appliance-oriented per- 
sonal computer market. It is however 
still possible to build your own system 
today. Building an IBM-PC or XT 
clone has become very easy. It is not 
even necessary to use a soldering iron. 
One can literally assemble an IBM-PC 
or XT clone system with only a screw- 
driver, nutdriver, and a reasonable me- 
asure of self-confidence. 

With this in mind, some time ago, I 
decided to put together a system that 
would ‘‘clone’’ the IBM-PC. At the 
time I did it, IBM had not gone through 
the various iterations of price reduc- 
tions. However, as clone component 
parts become readily available, IBM- 
PC system prices have also dropped 
drastically. If one were to stick with 
“‘equivalent’’ products, the differen- 
tial, today, would be about $100. If, 
however, we were to substitute ‘‘low- 
er’’ quality products, the savings could 
increase to about $300-$400. Is it worth 
the effort? And, how does one go about 
putting an IBM-PC clone system 
together? 


The Motherboard & ROMS 

One can buy bare, etched and dril- 
led glass-epoxy PC-clone mother- 
boards, devoid of components, with 
assembly instructions in the $80-100 
range. Partly assembled boards, which 
include wave-soldered IC sockets 
generally run about $200. I think the 
additional cost is worth it. It eliminates 
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the most time consuming and tedious 
part of the assembly work. Further, it 
significantly reduces the likelihood of 
problems that result from solder 
bridges or cold solder joints. It should 
also be pointed out that the PC uses a 
DMA circuit that is component sensi- 
tive and hence someone building up a 
system from bare board and has trouble 
getting the system to operate or operate 
reliabily should pay close attention to 
the operation of this circuitry. In some 
cases it has been found that some 
motherboards, because of layout or 
poor quality control are the culprit. 

When contemplating the buying of 
a blank, partially assembled, or even a 
completely assembled motherboard it 
is a good idea to first check over the 
documentation that accompanies the 
board. Some, particularly from the far 
east, contain no assembly information 
or very poor documentation. General- 
ly, if the documentation is good the 
product is good. If the documentation is 
poor, watch out! 

One other consideration here is that 
many of the components that you will 
need are not readily available at flea 
markets or from many electronic com- 
ponent distributors. It may take quite a 
bit of searching, expense and time, to 
get all the parts together. 

There are many PC and XT-like 
assembled and tested system mother- 
boards selling starting at about $400 
populated with 128K bytes of memory 
(a listing of many U.S. manufacturers 
or distributors of such boards will be 
found at the end of this article). They 
typically include all of the support 
chips. Many include features not found 
on the IBM-PC motherboard. For ex- 
ample, may accommodate more plug- 
in cards, may have sockets for more 
than 64K of ROM, may be able to take 
up to | Megabyte of RAM on board, 
may have a reset switch circuit, may 
have a kludge area, or may include the 
ports and display and disk controller 


by Hank Kee 


circuits. Some manufacturers supply 
motherboards with an 80286 instead of 
the 8088 for improved performance. 

Some motherboards however con- 
tain an empty socket for the BIOS 
ROM, which the purchaser has to supp- 
ly. Most of the U.S. manufacturers of 
motherboards include a BIOS ROM. 
None include IBM cassette BASIC 
ROM’s. However, sockets are in- 
cluded for additional ROMs. An addi- 
tional 128KB memory is needed to 
bring it up to 256KB. PROM space is 
available to give us the same func- 
tionality of the IBM ROM monitor and 
ROM Cassette BASIC. IBM compati- 
ble BIOS ROMs are available from 
some suppliers starting at $30. 

But the BASIC ROM’s can present 
problems if it is an absolute require- 
ment to build a 100% compatible clone 
unit. After all, we do not want to in- 
fringe on copyrighted materials*. Like 
all [BM-PC clones marketed today, the 
BASIC ROM’s will have to be replaced 
with some version of Microsoft’s GW- 
BASIC which is normally supplied on 
all copies of the MS-DOS system dis- 
kette. GW-BASIC runs completely off 
disk. If one buys a copy of IBM’s PC- 
DOS one gets copies of BASIC and 
BASICA which use the IBM’s ROM 
Cassette BASIC. These versions of 
BASIC will not run on the clones. It is 
worth buying a copy of IBM’s PC-DOS 
just to get copies of their execellent 
manuals. However, keep in mind that 
you will also have to obtain a copy of 
Microsoft’s GW-BASIC to avoid 
copyright infringement. This would 
have to be obtained independently from 
a software distributor. 

You can buy a BIOS ROM from 
IBM. IBM sells the part to users who 
wish to upgrade their systems from the 
BIOS used in the old PC revision A 
(64KB) motherboards to the newer 
BIOS. These ROM’s however have 24 
pins and will not work with the 28 pin 
PROM circuitry used on clone system 
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THE (2 JOURNAL 


The C Journal will help YOU use C on YOUR machine 
—IBM PC™, CP/M™, Macintosh™, or UNIX™-based — 
micro, mini, or mainframe. 


It's the ONE publication for programmers, software 

managers, and other computer professionals who 

need to keep aware of developments in the indus- 

try's fastest-growing language. 

e regular columns for novice through advanced C 
programmers 

® software product and book reviews 

@ tips on working with major compilers and 
operating systems 

@ news from the ANSI standards committee and the 
Industry 


For FREE sample issue and discount subscription 
information, write, call, or circle our reader service 
number. The C Journal is a quarterly publication, 
and costs $28/year (add $9 for overseas airmail). 


Subscriptions/Advertising: Editorial: 
Christina Gardner Rex Jaeschke 
(201) 989-0570 (703) 860-0091 


another independent publication from 
== InfoPro Systems 
3108 Route 10 
P.O. Box 849 
Denville, NJ 07834 


motherboards. Further, the ROM IBM 
sells is for the PC and not the XT. The 
clone boards seem to be mostly XT- 
like. Thus 100% compatibility is not 
achieved. 


The Box & Power Supply Considerations 

There are many suppliers of boxes 
to house your motherboard, power 
supply and drives. Outwardly they look 
just like the IBM-PC box. However, 
some have subtle differences that can 
cause a great deal of work to make them 
accommodate your motherboard. 
Further, many of the clone mother- 
boards are not the same dimensions as 
the IBM-PC board and hence may not 
fit a box that conforms to the IBM-PC 
dimensions. Be forewarned, check the 
dimensions of your motherboard, pow- 
er supply and cabinet to be sure that 
they will all fit together easily. 

An XT-like power supply can be 
purchased anywhere from $145 to 
$175. But be wary of these units. Some 
of them are not equipped with the pow- 
er socket to accommodate the 
monochrome display. 

The XT power supply is rated 130 
watts. The clone units may also claim 
130 watts. But it is most important that 
the individual 5 volt and 12 volt lines 
have sufficient power. Therefore check 
their ratings. 

Some power supplies come only 
with two disk drive power connectors. 
Thus, one must obtain a Y-connector 
cable if two floppy drives plus a hard 
disk drive are to be used. However 
some of the power supplies come with 
3, and some even with 4 power connec- 
tors and cables. This is very convenient 
if you are planning to have 3 or 4 drives 
in your systems. It eliminates an extra 
Y connector(s) for the extra drives. 


The Box 

System chassis cases range in price 
from $70 to $110. Do not expect an 
IBM logo on the front of these boxes. 
They are quite adequate but usually 
they lack the equivalent fit and finish of 
the IBM enclosure. Further, most of 
these clone boxes use metric threading. 
This may or may may cause a problem 
with the installation of some compo- 
nents. Also, you may have difficulty 
find metric threaded nuts and bolts, if 
not enough hardware is provided. 


Keyboards 

The next item to consider is the 
keyboard. Some of the clone keyboards 
are available for under $100. Although 
the original IBM keyboard lists for 
$275, they are available for $200 in 
large metropolitan areas. My prefer- 
ence is the IBM keyboard for the tactile 
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touch. However for a difference of 
$100, you can sure adapt to another 
keyboard. 

There are other keyboards priced in 
$100-200 range which includes LED’s 
for CAPS LOCK, and NUM LOCK. 
And, on some keyboards the awkward 
backslash (\) has also been relocated to 
a more convenient location. 

Try not to buy in the blind. Test 
type and feel these keyboards prior to 
purchase, if at all possible. 


Drives 

Now add to it diskette drives. Half- 
height drives are available for as low as 
$100 each, but $125 is more typical. I 
have found them to be reliable. My 
only objection is that they require 3 
millimeter screw fittings that are not 
supplied. When I contacted an importer 
about this problem they told me to go to 
an import car supplier. My drives pre- 
sently sit loose. It’s not the way to 
mount drives, but neither can I buy the 
necessary screws in quantities less than 
100. 

Full height diskette drives are avail- 
able for about $150 if you do a little 
shopping around. Also, figure on about 
$25 for the diskette cable to connect the 
units. An IBM diskette controller board 
lists for $125. Do not figure on saving 
much money here by buying a clone 
diskette controller card. 


Pricing the Total System 

So what does the total expense look 
like compared to a similar IBM PC sys- 
tem? An IBM PC with the same options 
sans display and adapter sells for about 
$1495 to $1595. 

Here is a price breakdown. 


rock-bottom equivalent IBM 

systems board $400 $400 
additional memory 70 70 
BIOS ROM 30 30 
chassis 70 110 
power supply 145 175 
keyboard 100 200 
half height drives 240 300 
diskette controller 100 125 
cabling 25 25 

1180 1435 = 1495-1595 
savings 315-415 60-160 
compatibility (less than 100%) real McCoy 
connector slots 8 8 5 
Worth the Savings? 


Is the effort worth it? As an 
academic exercise, the answer is no. 
The only time to consider building your 
own clone is when more than 5 connec- 
tor slots will be required and all the 
software you need can run with the pro- 
vided BIOS ROM. How will one know 
if the desired software will run? The 
only way to find out is to find someone 
who may have put together a clone with 


that particular BIOS ROM in question. 
At one time, IBM prices were suffi- 
ciently high that many IBM clones 
came to market. Not only has price 
reductions affected IBM clones causing 
many to get out of the business, but it 
has also impacted the put-it-together 
market if one were to carefully analyze 
the net expense. For me the building of 
an IBM clone was an experience. If I 
had known of the drastic price reduc- 
tions that were to occur, I would have 
saved quite a few dollars by waiting. 
One last point. If you are building a 
custom system (e.g. for a process con- 
trol application) putting together a PC- 
clone makes real sense. You can de- 
velop your software on a standard PC 
system, burn the program into ROM(s) 
and then plug them into a clone board 
for the actual application. In fact, the 
actual application may not even need a 
display, keyboard or drives. This 
makes for a much lower cost custom 
system then buying a PC, which is 
probably overkill for the the task. 


U.S. Manufacturers of PC/XT Compatible 
Motherboards 


Advanced Computer Solutions Inc. 
13720 Midway Rd Suite 209 
Dallas TX 75244 

(214)934-8239 


Display Telecommunications Corp. 
4100 Spring Valley Rd Suite 400 
Dallas TX 75234 


Faraday Electronics 
743 Pastoria Ave 
Sunnyvale CA 94086 
(408)749- 1900 


Handwell Corp. 

4962 El Camino Real 
Los Altos CA 94022 
(800)821-3628 


Oemtek 

3707 Williams Rd 
San Jose, CA 95117 
(408)247-1100 


Slicer Computers Inc. 
2543 Marshall St. N.E. 
Minneapolis, MN 55418 
(612)788-948 | 

Super Computer 

17813 S. Main St. Suite 103 
Gardena CA 90248 
(213)532-2133 

Wave Mate Inc. 

14009 S. Crenshaw Blvd. 
Hawthorne CA 90250 
(213)978-8600 


*Editor’s Note: An IBM-PC com- 
patible ROM BIOS was developed 


(continued on page 80) 


Micro/Systems Journal March/April 1985 


For the Advanced Computer User 


Micro/: Systems Journal. 


P.O. Box 1192 
Mountainside, N.J. 07092 
(201) 522-9347 


Sol Libes says... 
“Call me crazy 
...l’m doing it again!” 


I’m back into magazine publishing ... something | swore | would never do again. When Microsystems 
magazine died | was in a depressed state for weeks. Countless letters and phone calls from devoted 
subscribers made it even worse. Everyone kept urging me to do it again. 


| kept remembering what my wife Lennie and | went through when we started Microsystems, and | said 
no... not again... we want to live a normal life again. But there has been something missing from my life 
the last several months. The passing of Microsystems left a void. Let’s face it, there really is no other 
magazine that caters to the advanced micro user the way Microsystems did. 


So | am starting a new magazine. It is in the tradition of the old Microsystems. Lots of practical info... 
strictly technical ... no fluff ... stuff to keep every hacker up-to-date on the ever-changing micro 
technology ... software and hardware tutorials and reviews, public-domain software info and reviews 
(SIG/M, PC/Blue, PC-SIG, C-User Group and more)... MS/DOS, CP/M, Turbo DOS, C, Pascal, Forth, Lisp, 
and of course Assembler ... S-100, IBM-PC, single board computers, multi-user systems ... a real micro 
systems-oriented journal ... in fact, that is its name — Micro/Systems Journal! 


Micro/Systems Journal is published six (6) times a year and | am offering a special introductory rate. 
Subscribe before April 15th and deduct 10%. This offer is good until April 15th so hurry and mail your 
subscription now. 


SOR ee meee meee meee ee eee eee eee eee EEE HEHEHE HEHE EEE REESE EEE EEE EEEEE HEE OH ESE E EE EEE HEE SHEE EEE EEE EEE HEHEHE EE EEEE EEE REESE SEES EE EE EEE EHE SERED HESS 


For the Advanced Computer User Bulk Rate First Class 
° ES Ra (f= | meetin brett ora ane Rar $18.00 $24.00 
Micro/: Systems Journal, Ey? Years: ova eA, 4 7 Snel 32.00 44.00 
fg Year: (GanadaréaMexico)" "2 og, va ee ae 24.00 
Subscription Form (ige2; Years (Ganada:S:Mexico)l2 see 44.00 
[a= Year (Other foreign) a) 2 i ee sere ee 32.00 
LJ Yes! Start my subscription! fey 2 Years (other foreign) =... pages ee 58.00 
[.} Postmarked before April ISth ............ deduct 10% 
{_j Former Microsystems subscriber . .deduct an additional 5% 
Name: 
Please make check payable in U.S. funds by a US. bank. 
Address: Thank you. 
Gy Purchase-Order #2 
City: State: Zip: Bill my ‘firm and add $5 billing charge. 


Make check payable to: Micro/Systems Journal, PO. Box 1192, Mountainside, NJ 07092 
Micro/Systems Journal March/April 1985 lit 


Microsystems Back Issues 


The following back issues of the old Microsystems 
magazine are still available. Quantities of many of the 
issues are, however, limited. They are $3.50 per copy 
($5.00 foreign, cash or U.S. bank check) including 
shipping. If ordering 3-9 copies deduct 10%, 10 or more 
copies deduct 15%. Make check out to ‘*‘Micro/Systems 
Journal’’, Box 1192, Mountainside NJ 07092. 


1984 


NOVEMBER: Unix Development; MS-DOS Prompt 
Command Features; X.25 Communications Protocol - Part 
3; How Portable is C?; S-100 Power Switching and dealing 
with slow Eproms; Unix MAKE utility and a shell 
‘*exec’’; Bulletin Boards for the PC; REVIEWS: PFIX-86, 
Codata 3300, HALO. 


AUGUST: Intro to Local Area Networking; Graphics 
Subroutines in C For NAPLPS; Using YACC, MAKE and 
Prolog under Unix; Multiprocessing on S-100; Using Unix 
Sort, ciphers and enhancements; REVIEWS: TurboDOS, 
NCR-PC, MindSet-PC, Adding TurboDOS to NorthStar 
System, Leverage DBMS for Unix. 


JULY: Intro to Computer Graphics; Intro to NAPLPS; 
NAPLPS Directory; Graphics on DEC PRO/350, NCR-PC 
and Mindset; Speed up S-100 front panels; Unix 
Portability; REVIEWS: DRI-GSX, Princeton Graphics 
HX-12, Quickpel, Createx, Videophile, DRI-PL/1-86, 
Mitsubishi half-height 8’’ drives. 

JUNE: Implement X.25 Communications Protocol, RCPM 
and RPC Systems; RCPM Directory; 
Computer-to-Computer File Transfers; Log onto your 
system as a Remote Terminal; 8250 UART Interfacing; 
S-100 Interrupts, clock signals, RTC and power 
requirments; REVIEWS: ASCOM, 212A modems. 


APRIL: Unix Software Directory; Upgrade NorthStar 
ZPB; MS-DOS 2.0 Overview - Part 2; S-100 Phantom & 
Bank Selecting; Upgrading FIG Forth; REVIEWS: 
UniPlus + , Informix, DRI-C. 

FEBRUARY: Using WordStar to Create 
Mailmerge/DBase-II files; Moving data files between 
CP/M software packages; Datestamp DBase-II; CP/M 2.2 
Deblocking; Building S-100 diagnostic hardware; Enhance 
CP/M+ with RSX; REVIEWS: DBase-II, S-100 
Mainframes, DRI Display Manager, AutoDex, Turbo 
Pascal. 


JANUARY: Enhancing MP/M - Part 1; Installing MP/M; 
Add Concurrency to MP/M; Two Users on CP/M; 
Relocating Assemblers & Linkage Editors - Part 3; S-100 
Wait States; REVIEWS: MP/M-8/16, ProComp-8, 
Paragraphics Game Board, ProLog. 


1988 


DECEMBER: CP/M Software Directory; A Debug 
Subroutine; Implement IOBYTE on North Star; Floppy 
Disk Problems; Improve Trig Functions in CBasic-80; 
Build Cheap S-100 Memory; Extended Memory 
Management; CP/M-86 BDOS Calls; REVIEWS: XLISP, 
LISP/80, TLC LISP, APC Basic, Microdynamics S-100 
EProm Programmer, Ackerman S-100 Digital Synthetalker, 
Digital Research 16K & 32K S-100 Memory cards. 


NOVEMBER: Intro to 80286, 68000, and 16032 
Microprocessors; Intro to Local Area Networks - Part 2; 
Extended Memory Management for older S-100 Systems; 
Notes on Microsoft Fortran-80; Building S-100 Parallel 
Ports; REVIEWS: CompuPro CPU-68K, System 8/16, 
Xenith Z-100, Nevada & Ellis Computing Fortran. 
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OCTOBER: Intro to Local Area Networks, Part-1; Build 
Low-Cost LAN; Build S-100 Bubble Memory Card; Use 
Radio Shack Model 100 portable with a CP/M system; 
Write Menu-Driven Utility for Setting Printer Options; 
North Star Improvement; True Z-80 Random Number 
Function; Hide Code in Basic REM statements; Machine 
Code loader for MBasic; Increase Single-Density Disk 
Formatting; Relocating Assembler & Linkage Editors, 
Part-2; Run MX-80 with North Star; User Group Directory; 
CP/M-86 Versus CP/M-80; REVIEWS: CP/NET, QBAX, 
S-Basic. 


SEPTEMBER: Using RatFor; Relocating Assemblers & 
Linkage Editors, Part-1; Sleuth WordStar Files with Pascal; 
CrossCheck Program; CP/M <->NorthStar File Transfers; 
NorthStar DOS as a CP/M COM File; Add Rescue Key to 
System; S-100 TMA Interfacing; REVIEWS: Altos 586, 
CompuPro 8/16C, Ithaca InterSystems Encore, Dual 
Systems 83/20 Unix System, Supersoft C, Software Tools, 
Morrow Designs Micronix, Upgrade Older S-100 Systems 
to CompuPro Dual Processor. 


AUGUST: XERA Program; Logging-On CP/M; WordStar 
Date/Time Patch; Find Location of Variable in NorthStar 
Basic; Prevent System Crashes During Warm Boot; 
Enhance Spreadsheet Print Files; Plotting Package-Part 3; 
Run WordStar under TP/M; 50-line Text Formatter; Using 
the LU Utility; User Areas under CP/M; REVIEWS: Stiff 
Upper Lisp, MuLisp-80, Supersoft Lisp, Cromenco C-10, 
Access Manager, Fancy Font, Computime SBC-880 S-100 
card. 


JULY: Using RCPMs; RCPM Directory; PIP Data 
Between Computers; Toward Smarter Modem Programs; 
Interface MX-80 via Parallel Interface; Digital Audio On 
CP/M System; Customize CP/M CBIOS; Plotting Package 
Part-2; REVIEWS: DRI PL/I-86 and PL/I-80, S-100 PMMI 
MM-VT1. 


JUNE: Plotting Package Part 1; Drive HP Plotter; 
Laboratory Graphics Applications; Console Keypressed 
interrupts; Cutomize Wordprocessor Keyboard; WordStar 
Patch hor H-19/Z-19 Terminal; Relocatable Code; 
REVIEWS: Graftalk, JES S-100 Graphics Controller, 
ZCPR2. 


MAY: IEEE-696/S-100 Standard Update; S-100 Product 
Directory; Solid State Disk Drives; Track-Buffering for 
Tarbell SD Controller; SID Patches; Using Microsoft’s 
VARPTR; Double NorthStar RAM; Restore unsaved 
MBasic Programs; Pascal Disk Scan Program; Extended 
Memory for Exidy Sorcerer; S-100 Extended Addressing; 
Unix Easy Applications and Text Processing; REVIEWS: 
NorthStar Basic Utilities, CompuPro MPS-1, Autodiff, 
S.A.I.L., IBIOS. 


APRIL: IEEE-488 Tutorial; Interfacing to Lab 
Instruments; CP/M-86 System in Lab; Implementing 
CP/M+ Part II; Build Simple S-100 Card Extractor; 
Macros & MacroAssemblers; REVIEWS: Pickles & Trout 
S-100 488 Controller; CP/M Utilites; Morrow Decision I. 


MARCH: Implementing CP/M+ Part 1; Two CP/M 
Enhancements; Transferring Files between 5’’ and 8”’ 
drives; NorthStar DIRALPHA program; Large BIOS 
Problem; WordStar Mod For Epson Printer; SpellStar Bug; 
Better Multiply Algorithm; REVIEWS: WordStar, 
Wordmaster, Magic Wand, Spellbinder; Televideo 925, 
Zenith Z19, Wyse WY-100 and ADDS Terminals. 


FEBRUARY: CP/M+ Overview; Implmenting CP/M +; 
Triple Floppy Density; CP/M Chain Routine; 
Troubleshooting S-100 Systems; Build S-100 EEProm 
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CP/M" 


Version 1.4 & 2X 


Programmer's 
Reference 
Guide 


REVISED EDITION 
BY SOL LIBES 
Editor of 
Micro/Systems Journal 


igi search 
*CPIM is a registered trademark of Digital Re 


Microsystems Back Issues continued 


Card; Relocatable Code; REVIEWS: Ackerman S-100 
Promblaster; Pascal MT +; Four S-100 Single Board 
CPUs; Morrow Micro Decision. 


JANUARY: Unix Vs CP/M; Intro to Xenix; Unix on 
Micros; Build S-100 DMA Adaptor; Interfacing to BSR 
X-10 Home Control System; S-100 Troublehooting; 
REVIEWS: InterSystems DPS-8000 and Coherent; 
MicroShell, UNICA, Small-VOS, Small-Tools, Five S-100 
RAM Cards, SemiDisk. 


1982 


NOVEMBER/DECEMBER: CP/M Vs MS/DOS; 
CP/M-86 Vs MS-DOS; Intro to ADA Part 2; Virtual Disk 
for NorthStar; CP/M Program Auto-execute; Macros & 
Macro-Assemblers; REVIEWS: Janus, Aztec-C, C/80, 
Morrow S-100 M26 Hard Disk System, Teleram S-100 
Bubble Memory Card, Jade S-100 Bus Probe. 
SEPTEMBER/OCTOBER: Innovations in Micro 
Languages; Intro to Ada Part 1; Saving Program State 
Under UCSD Pascal; Intro to Stoic; Stoic Vs Forth; Intro 
to C; Build S-100 Timer Interrupt for MP/M; REVIEWS: 
UCSD Pascal VII & IV. 


JULY/AUGUST: Hardware Random Byte Generator; 
Error Detection & Correction Codes; Getfile CP/M Utility 
Program; CP/M Patches; CP/M Application Notes; Run old 
NorthStar programs under new DOS; Cloning Disk Drives; 
Low Cost Floppy Disk Power Supply; Intro to Computer 
Graphics; Using Supersub Utility; REVIEWS: D80, 
RAID-8080, Three Macro-Assemblers, PDS, Cer-Tek 
S-100 UniProm Board; GrafPak. 
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CP/M Programmer’s Reference Guide 


A complete guide to CP/M-80 V2.X all on one folded 
card that fits into a shirt pocket. 

Side one is for CP/M users. It contains a listing and 
description of all the CP/M built-in and transient 
commands, PIP, ASM, DDT and ED Commands as well 
as CP/M control characters, file types and ASM error 
codes explained. 

The second side is for CP/M programmers. It contains 
a listing and description of all the BDOS Function Calls 
and BIOS Engry Points. There is also an explanation of 
the operation of the IOBYTE, the Login Byte, File Control 
Block, Memory Allocations and Disk Format. 

In other words the complete CP/M-80 V2 reference 
manuals condensed to fit on one pocket size folded card. 
No CP/M hacker can be without it. 


Price (includes shipping): 


Call or write for quantity discounts 


MICRO/SYSTEMS JOURNAL, Box 1192 Mountainside 
NJ 07092 


$2 (U.S.A., Canada & Mexico) 
$3 (foreign, U.S. Currency/U.S. bank check) 


MAY/JUNE: Intro to DBMS; Three ways to implement a 
mail list; Cursor Addressing; Structured Programming in 
Basic; Replacement for CP/M Submit; CP/M Disk 
Directory & Table Secrets; Mods for SDS VDB-8024; Run 
NorthStar Basic with CP/M; REVIEWS: DataStar, MDBS, 
TIM, Mince, ZDM. 


JANUARY/FEBRUARY: Intro to PL/I-80; Programming 
Styles; Interfacing PL/I-80 to Assembly Language; Intro 
To C Part 2; 6-byte Hex-ASCII Conversion; Little ADA 
Part 3; Use Computer To Build Computer; 65K RAM for 
Sol-20; Using CP/M’s Autoload Feature; REVIEWS: 
PL/I-80, Diskindx. 


1981 


JULY/AUGUST: 16-Bit Disk Operating Systems; Input 
Queuing For NorthStar; Variable Speed Automatic Slow 
Step; Build S-100 Clock/Calendar Card; REVIEWS: 
TEC-86 System, Seattle Computer 8086 System, 
AlphaMicro, Godbout Dual Processor, CP/M-86, 
Televideo 920-C Terminal. 

MAY/JUNE: Intro To Computer Communications, CP/M 
Tutorial Part-5; CP/M Enhancements; REVIEWS: 
Modkom, Commx, Mcall, S-100 Modems Compared. 


1980 


MAR/APRIL: Linear Programming Techniques in Pascal; 
Intro To CP/M part 2, Addressing The Cursor; S-100 Bus - 
New Vs Old; Tarbell Disk Controller Mods; REVIEWS: 
CGS-808 S-100 Color Graphics Controller. 


79 


A . 


RESOLUTION 


REVOLUTION ! 


SIOO GRAPHICS -8 COLOR: 1024 by 1024 Resolution: 1! BOARD 


The Illuminated Technologies 
single board graphics controller is 
proving a wide variety of users 
worldwide with unprecedented 
resolution, speed, and ease of 
use. 


The heart of the board is the 7220 
graphics controller, a dedicated 16 
bit microprocessor that im- 
plements Breshenhams algorithm 
directly in pipelined hardware, 
allowing vector and arc drawing 
speeds of 1.3 million pixels per se- 
cond. 


C language driver source for draw- 
ing and text application develop- 
ment are furnished. 


* 3 million pixel display memory 
with 1024 by 1024, 1200 by 872, or 
movable window on image plane 
i.e, 640 by 480. 

¢ Hardware zoom, pan, and win- 
dowing 

* Up to 44 Mhz video rate 

* Programmable sync, timing, 
resolution, and interface for any 
monochrome or RGB monitor 


Created with 40CAD trom 4D Graphics 
Courtesy of Cad Innovations 


SOFTWARE 
* AutoCAD 2 
now available 
for S-100/ 8086 
¢ Vgraph Tektronix 
40xx emulator 
¢ CP/M & MSDOS 
Console Support 


DEALERS 


Contact us for applications software currently available 


ILLUMINATED TECHNOLOGIES 


3005 N. May e Oklahoma City, Oklahoma 73107 
(405) 943-8086 


CAD Innovations 
Seattle, Washington 
(206) 325-2300 


INC. 


Moms Computing 
Sausalito, California 
(415) 331-2043 


Contact also Owens & Assoc (718) 448-2913 * Competitive Edge (313) 451-0665 


PC CLONE 
(continued from page 76) 


some years ago by the Taiwan ‘‘Insti- 
tute For Information Industry’’ for use 
by Taiwan manufacturers of IBM-PC 
compatible machines. This BIOS was 
licensed to these manufacturers and 
several have made units containing 
these ROMS. However, the U.S. Cus- 
toms has, reportedly, confiscated sys- 
tems (at IBMs request) that arrived in 
the U.S. Further, IBM has filed suit 
against 11 Taiwan companies for 
copyright infringement. This case is 
currently in the Taiwan courts and is, 
reportedly being fought by the com- 
panies. 

There are an estimated 50 Taiwan 
system and component suppliers of PCs 
and PC-compatible components. Many 
are already exporting units to the U.S. 
In most cases these units lack BIOS 
ROMs. However, the likelihood is that 
this situation will change shortly. 

Most of the board manufacturers 

listed in this article include a ROM 
BIOS with their motherboards. 
Hank Kee is a Vice President for a very 
large banking institution. He is also the 
software librarian for the PC/Blue pub- 
lic domain software library and served 
as the librarian for SIG/M, in its early 
days. 
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C Source Code 
for the PC 


$45” 
$25” 
$25” 
$15” 


Austin Code Works 
11100 Leafwood Lane 
Austin, TX 78750 
512-258-0785 


Concurrent C 
LEX 
YACC 


Tools 


CLASSIFIEDS 


Micro/Systems Journal will 
accept Classified Ads. The charge is 
$6/line (3 lines minimum); 50 charac- 
ters maximum per line. Three times 
Frequency $5/line; six times $4/line; 
non-profit clubs $2/line. Logos, special 
type, etc., are an extra charge. Check 
must accompany ad copy. Send to Mic- 
ro/Systems Journal, POB 1192, 
Mountainside NJ 07092. 


**The Public Domain Software Copying Co.** 
Brief Catalog & Sample Disk (dsdd) $12.00. PC- 
DOS, MS-DOS, Commodore, Apple II, 5” 
CP/M. 33 Gold St. L3M, NYC, NY 10038 
212-732-2565 


Advertiser Index 


2500AD Software 
2500AD Software 


ATOMIC TISIG § 55. ecoca.ceeseeapersnnrcanexnonsed exer uate 72 
Andratech 

Applied Innovations .................. 26 
Austin: Codé WorkS)es.ciccesecacavnc.cxestes 80 


BD SORWARC: oo esscdesinscscnie ccasensitrenese megaiere 13 
Business Utility Software .............35 
BV Engineering 


Catspaw 

Competitive Edge 

Computer House 

COMPULIN GE! s:oiscdisienscaseuesers’ sunsnnsereness ancestors 27 
C Journal 

C Users Group 


Data Access Comps: =: 2a: sasineces ape. 29 


‘Barth Computer 
Electronic Control Technology 
Euclid Systems 


LUT] (101 een en ¥ 
GSR: Computers ewieccc ces ccavocas cannes 44 


Illuminated Technologies .............. 80 
Integrand Research 

Integrand Research 

Intercontinental Micro Systems 

1/O Technology 


Lahey Computer Systems 
Lomas: Data’ Products) oii. sscsiacsaos-cecine a 4B 


Macrotech International Corp. 

Mendocino Software Company 

Microcomputer Systems 
Consultants 


Night Owl Software 
Night Owl Software 


POOUIMNICS) scincnaerossaenoeonreetwot ae 59 
Poor Person Software 
Public Domain Software 


R & L Micro Services ............-4+- 26 
Rational Systems... ccwarcsonaccies veges 60 
S. C. Digital 

Semi Disk Systems 

Shaw American Technologies .......... 70 
Simpliway Products Company 

DSLR SY Stes) o.0.0:5:0.2i5psieuses 2 dsererayernre rere 71 
SOR ACVANCES: 6:2:evecisxcssvee eanienrnse exsiounrs 28 
Soft Focus 

Software Wizardry 

System Engineering Tools 

Teletek 

User?s Guide: ois coeeccek sama ges sae 73 
Vidsyit i Cot pines: cama. ewienisriers anew 5 
Western Wares «223 008: e8256,258 225y 61 


Xpert Software 
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They Called tt Imnossible. 


Imagine IBM PCs, intelligent workstations 
and S-100 BUS multiuser systems all on the 
same local area network. 

Impossible? 

Not with TurboLAN, Intercontinental 
Micro’s networking solution. 

The key is a unique hardware and soft- 
ware approach to local area networks. 

You get the flexibility of 8-bit and 16-bit 
processors on the same network, the cost 
savings of shared peripherals, and expand- 
ability to over 4000 users. 

You simply organize the network the way you 
want, mixing IBM PCs, S-100 BUS multi-user sys- 
tems, S-100 BUS file servers, and workstations. 

Intercontinental’s sophisticated single board 
computers, 8-bit and 16-bit slaves, memory and 
interface boards make your job even easier. 
TurboLAN will work with almost any S-100 BUS 
system including NORTHSTAR, IMS, Teletek, and any 
other S-100 master featuring phantom deselection 
or extended addressing capability. 

The ability to run PC-DOS, MS-DOS, CP/M, MP/M, 
and other applications programs means whatever 
the future holds, TurboLAN is ready. 

And so is Intercontinental Micro. 

You see, our S-100 BUS products revolutionized 
an industry. Intercontinental’s slaves, masters and 
memory boards introduced advanced features like 
Direct Memory Access and Memory Management 
to micro environments. TurboLAN™ The new net- 


working solution from the company that’s been 
building networking solutions for years. 

Still think TurboLAN’s impossible? 

Then call, write or circle the bingo number 
below —we'll send you complete information on 
TurboLAN and descriptions of all our products, 
including the most complete S-100 BUS product 
line in the business. 

OUR COMPLETE TURBOLAN AND S-100 BUS PRODUCT LINE 
CPS4800X-SINGLE BOARD COMPUTER. 

4 or 6 MHz processor (Z80A/B), onboard floppy 
disk controller, 64K RAM, 4 channel DMA control- 
ler, 24 line parallel I/O port, two serial 1/0 
channels, real time clock. Memory mapped or 1/0 
mapped capability. 

CPS-16X — 16-BIT 8086 SLAVE PROCESSOR. 

256K, 512K or IMB RAM, bank selectable, 
memory mapped, two serial ports, 24 line parallel 
1/0 port, 8 MHz. 


CPS-BMX/MX —Z80 SLAVE PROCESSORS 
4 to 6 MHz processors, 64K RAM or 128K 
bank selectable memory, two serial ports, 24 
line parallel 1/0 port. 
256KMB — MEMORY BOARD. 
Hard disk cache, linear addressable to 
two megabytes, bank selectable in 16K 
increments, configures for phantom 
%  deselection, parity error detection. 
a> LANS-100 —TURBOLAN FOR $-100 BUS SYSTEMS 
ARCNET controller meets 696.2/D2S-100 
spec, coax cable interface, 255 nodes per 
network segment, 2.5 megabit/sec. data rate. 
LANPC TURBOLAN FOR THE IBM PC 
Plug-in expansion ArcNet board. Custom software 
drivers integrates IBM PC into TurboLAN networks. 
64K or 256K RAM options available. 
WS80X-DISKLESS WORKSTATION 
Converts almost any dumb terminal into intelligent 
workstation with networking capability. Floppy 
and hard disk options available. 
PERSONALITY BOARDS — 
SASI, Centronix, PRIAM, Clock/Calendar, RS232, 
Modem, RS422, long distance serial communica- 
tions (up to 4000 Ft.) 


=) Intercontinental 
f= /Micro Systems 


4015 Leaverton Ct, Anaheim, CA 92807, (714) 630-0964, TELEX: 821375 SUPPORT UD 


TurboDOS is a Trademark of Software 2,000, Inc. ARCnet is a Trademark of Datapoint. CP/M, CP/M 86, MP/M, MP/M 86, CP/M PLUS, 
Concurrent CP/M 86 are Trademarks of Digital Research. PC-DOS, IBM-PC are Trademarks of International Business Machines. 
MS-DOS is a Trademark of Microsoft. TurboLAN is a Trademark of Intercontinental Micro Systems. 


2 Megabytes 


THE LARGEST CAPACITY DISK EMULATOR 
YOU HAVE EVER SEEN. 


You know about disk emulators. They're fast semiconductor disk 
drives. Very fast. But until now, the most disk storage you could get 
on a single board was 1Mbyte. (That was from/us, too.) Now we 
have news that'll really blow your.socks off... 2 Megabytes on a 
single board. Available NOW. That’s not a pie-in-the-sky promise. 


That’s enough storage for dozens of large programs and 
hundreds of kilobytes of data files. Enough for almost anything 
you want to do with a disk drive. But that’s not all. With SemiSpool, 
our CP/M print spooler, you can implement a print buffer 
hundreds of kilobytes long in seconds. All in software. At no extra 
cost. 


Another thing about disk emulators. Unless they're from 
SemiDisk Systems, they're probably afraid of the dark: Lose power 
or turn the computer off, and your valuable data goes to that big 
backup disk in the sky. But our Battery Backup Units keep 
SemiDisk data flying high while your computer is off, and up to 10 
hours during a complete blackout. 


So remember this: SemiDisk Systems has been building 
dedicated microcomputer disk emulators longer than anyone. And 
larger, And faster. And at a much lower cost. And that’s not a lot of 
hot air. 


AT A PRICE YOU NEVER THOUGHT YOU'D SEE 


512K 1Mbyte 2Mbyte 
SemiDisk 15-100 $995 $1795 
SemiDisk If, $100 $1295 $2095 $2549 
IBM PC, XT, AT $945 $1795 $2499 
QX-10,QX-16 $799 $2499 
TRS-80 II,12,16 $995 $1795 $2499 
Battery Backup Unit $150 


SEMIDISK 


SemiDisk Systems, Inc. 
P.O. Box GG, Beaverton, Oregon 97075 


503-642-3100 


Call 503-646-5510 for CBBS/NW, 503-775-4838 for CBBS/PCS, and 503 649-8327 for CBBS/Aloha, all SemiDisk-equipped computer bulletin 
boards (300/1200 baud). SemiDisk, SemiSpool trademarks of SemiDisk Systems. CP/M trademark of Digital Research 


